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TASTIERA - MIDI - SEQUENCER - BATTERIA PROGRAMMABILE 

COMPUTER COMPATIBILE... 
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Fiera dei Levante, Comufficio e Tecnopolis hanno creato a Bari 

TECNORAMA/UFFICIO 


PERCHÉ É PIÙ REDDITIZIO PORTARE 

I PRODOTTI SUL MERCATO 
CHE IL MERCATO SUI PRODOTTI 


* 

K! 



TECNORAMA UFFICIO 

SALONE DELLA TELEMATICA E DELLE COMUNICAZIONI 
NELL’ORGANIZZAZIONE AZIENDALE: 

MACCHINE ED ARREDAMENTI PER L'UFFICIO 


E.A. FIERA DEL LEVANTE 
LUNGOMARE STARITA 70123 BARI 
TELEFONO (080) 206111 
TELEX 810101 FIDLEV I 


Il mercato del Mezzogiorno: un mercato geograficamente lontano dagli 
danti Saloni internazionali, ma un mercato fecondo perchè sulla 

via di un rapido rinnovamento. 
Per questo Fiera del Levante, COMUFFICIO e Tecnopolis - 
sotto il patrocinio dello SMAU e delle Università del 
Mezzogiorno - oggi presentano tecnorama/ufficio: 
^la nuova rassegna di macchine, attrezzature e arredamenti 
per l'ufficio, che si terrà a Bari dal 24 al 28 gennaio 1985. 
Una rassegna di 35.000 metri quadri, ricca di iniziative 
mozionali, che stabilirà contatti diretti fra produttori e migliaia di 
ì agricole, industriali e commerciali operanti nell'intero territorio 
meridionale e desiderose di innovare e di rinnovarsi. 
Una rassegna che creerà nuovi legami fra operatori del settore 
e migliaia di studi professionali ed amministrativi. 
Una rassegna che si rivolgerà anche e particolarmente al 

mondo dei giovani. 
Chi decide di partecipare a tecnorama/ufficio come 
espositore decide anche di cogliere una occasione 
importante per un importante sviluppo dei propri affari in 
un'area geografica quanto mai importante, che si 
estende, grazie all’esperienza della 
Fiera del Levante, fino ai Paesi del 
Mediterraneo. 
Perchè è più redditizio 
portare i prodotti su un 
mercato in attesa 
che non viceversa. 
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Il gusto dell’avventura 


di Riccardo Paolillo 


Anche la persona meno fantasiosa ha sicuramente 
dei momenti della propria vita in cui sogna o immagi¬ 
na di vivere una sua avventura. I più fortunati riesco¬ 
no a realizzare questo sogno e partono per posti 
lontani o comunque completamente diversi dai luo¬ 
ghi della realtà quotidiana. 

Tutti gli altri, si devono accontentare di vivere la 
propria avventura col pensiero e i sogni. 

Su questa necessità di evasione, certamente molto 
forte, causata soprattutto da un’attività quotidiana 
spesso stressante e poco creativa, si è ultimamente 
soffermata l'attenzione di quelle che sono le maggiori 
fabbriche di sogni: il cinema e la televisione. 

Il genere deH’avvenlura sta attraversando un mo¬ 
mento di enorme popolarità: Indiana Jones con le 
sue gesta forse un po’ esagerate, ma di sicuro effetto, 
ha spopolato nei cinema di tutto il mondo e le serie 
televisive basate sull’azione risquotono enorme suc¬ 
cesso presso moltissimi telespettatori. 

Quello di cui in Italia non ci si è resi pienamente 
conto, a differenza di quanto succede in altri Paesi, è 


che anche il personal computer può essere un ottimo 
strumento in questo campo. 

Ci riferiamo in particolare ai giochi di avventura, gli 
adventure, in cui non contano la prontezza di riflessi 
o l’abilità a maneggiare il joystick, ma serve invece 
l’astuzia, la pazienza e la logica. 

Si tratta di un tipo di divertimento completamente 
diverso da quello che viene assicurato dai game tradi¬ 
zionali, ma che riteniamo non deluda chi intenda 
cimentarsi. 

Il fatto che si tratti di giochi “intelligenti”, non 
significa che siano per pochi: anzi, per consentire a 
chiunque di apprezzarli e addirittura di costruirsi la 
propria avventura, iniziamo da questo numero la 
pubblicazione di alcuni articoli curati da Roberto 
Tabacco su questo argomento. 

È un tentativo anche questo volto a un utilizzo meno 
passivo e più creativo del calcolatore personale. È 
anche, se consentite il termine forse esagerato, una 
sfida a chi ritiene che un gioco per piacere debba 
necessariamente essere dotato di grafica fantasmago¬ 
rica e suono ultrasofisticato. 

L’augurio è di avere, anche qui da noi, degli autori 
in grado di scrivere degli avvincenti giochi di avven¬ 
tura, come Enrico Colombini, forse il primo, con 
Avventura nel Castello o lo stesso Tabacco che propo¬ 
ne proprio in questi giorni il suo Alla ricerca dello 
Scarabeo dOro per C 64. ■ 
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Per i possessori di VIC 20, un 
semplice metodo per fondere insie¬ 
me due programmi. 

Caricare il primo programma e veri¬ 
ficare il contenuto delle seguenti lo¬ 
cazioni digitando: 

PRINT PEEK (43), PEEK (44), PE- 
EK (45) 

se il contenuto della terza locazione 
è 2 o più digitare: 

POKE 43, PEEK (45) - 2: POKE 44, 
PEEK (46) 

se, invece, il contenuto èOo 1 digita¬ 
re: 

POKE 43, PEEK (45) + 254: POKE 
44, PEEK (46)- 1. 

Ora caricare il secondo programma 
(naturalmente i numeri di riga do¬ 
vranno essere maggiori di quelli del 
primo). 

A conclusione di tutta questa opera¬ 
zione, prima di procedere oltre, bi¬ 
sogna digitare ancora: 

POKE 43, x: POKE 44, y 

dove x e y sono rispettivamente i 
contenuti riscontrati con la prima 
operazione. 

Enrico Martelli 
Milano 


Ringraziamo Enrico Martelli per 
questo suggerimento destinato agli 
utilizzatori di VIC 20. Approfittiamo 
dell’occasione per invitare tutti i let¬ 
tori che avessero fatto qualche picco¬ 
la scoperta de! loro home computer, a 
comunicarla alla redazione per poter¬ 
la pubblicare a beneficio di tutti. 

La nostra intenzione è di far sì che 
queste pagine possano diventare un 
punto di incontro per i lettori: tutto 
questo sarà possibile grazie alla col¬ 
laborazione de! maggior numero pos¬ 
sibile di persone. A quanti partecipe¬ 
ranno con suggerimenti e trucchi vari, 
un grazie fin da ora e un augurio di 
buon lavoro. 


Piccoli Annunci”, parte seconda 

Gentile signor Francesco De Col¬ 
le, dal Gruppo Editoriale Jackson 
ho ricevuto una raccomandata con 
la copia della sua lettera, che mi ha 
fatto rimanere molto male per le pa¬ 
role dure e le brutte insinuazioni che 
contiene. Io pensavo che con lei, tut¬ 
to fosse a posto e che anzi le avevo 
fatto un piacere per i motivi che ora 
elencherò. 

È già da molto tempo che ho vendu¬ 
to il VIC 20, comprando il CBM 64. 
Quando ho ricevuto la sua cassetta, 
avevo il 64 già da qualche giorno. 
Purtroppo i miei programmi li ave¬ 
vo venduti insieme al VIC 20. 

Quindi decisi di consegnare al nuo¬ 
vo acquirente anche la sua cassetta e 
la lettera in cui erano indicati i pro¬ 
grammi richiesti. 

Questo per fare un piacere a lei, che 
pensavo sarebbe stato contento di 
ricevere nuovi programmi. 

Quando mi è arrivata la sua se¬ 
conda lettera, in cui mi informava di 
non aver ricevuto la cassetta, mi so¬ 
no precipitato dal nuovo proprieta¬ 
rio, un ragazzo di 15 anni, due anni 
più giovane di me, il quale si è giusti¬ 
ficato dicendo che aveva perso l’in- 
dirizzo. 

Glielo ho ridato con la calda racco¬ 
mandazione di spedire la cassetta e 
sono stato assicurato a questo pro¬ 
posito. 

10 ero tranquillo e non ci pensavo 
più. I nvece ho saputo ora che non ha 
spedito nulla. Forse non aveva inte¬ 
resse a farlo, perché la cosa non lo 
toccava direttamente e poi perché 
anche lui aveva acquistato in seguito 

11 CBM 64. 

Io non posso fare altro che scusarmi 
per non averla avvertita di cosa suc¬ 
cedeva. Comunque se vuole le posso 
mandare l'equivalente dei program¬ 
mi da lei inviati, in programmi per 
CBM 64. 

Amedeo De Franco 
Viareggio (LV) 


L'antefatto di questa lettera venne 
pubblicalo nella Posta del numero 21 
di Personal Software. In quell’occa¬ 
sione registrammo le lamentele de! 
signor De Colle per un episodio di 
interscambio programmi non giunto a 
buon fine. 

Ora abbiamo ricevuto una copia della 
lettera che Amedeo De Franco ha spe¬ 
dito al signor De Colle per spiegarci 
l'accaduto. Nel biglietto di accompa¬ 
gnamento speditoci. Amedeo De 
Franco conclude affermando di essere 
o almeno cercare di essere un ragazzo 
onesto. Ne siamo certissimi e per que¬ 
sto motivo pubblichiamo con piacere 
la sua precisazione. Siamo altresì 
certi dell’onestà del suo acquirente 
(che dispensiamo fin d'ora da lettere 
di spiegazione): semplicemente non 
avrà ritenuto di onorare impegni non 
suoi. Con questo, speriamo di aver 
messo una parola conclusiva su tutta 
la vicenda. D'altra parte, quando si 
cambia calcolatore il triplo scambio 
ha sicuramente scarse probabilità di 
successo. 

■ ■ ■ 

Programmi non funzionanti? 

Possiedo un Commodore 64 da 
alcuni mesi e compro la vostra rivi¬ 
sta, insieme ad altre edite sempre dal 
vostro Gruppo Editoriale, da ormai 
più di un anno. 

In verità, però, non sono molto en¬ 
tusiasta di essa, non per il tipo e la 
frequenza di programmi che vi so¬ 
no, ma soprattutto per la loro so¬ 
vente inutilizzabilità. 

Molte volte, infatti, dopo ore di digi¬ 
tazione sulla tastiera si rimane a 
bocca asciutta perché il listato non 
dà alcun risultato, ma allora perché 
affermate di averlo fatto girare e 
averlo trovato funzionante? 

Certo non dico che tutti i vostri pro¬ 
grammi non girano ma alcuni effet¬ 
tivamente presentano delle pecche 
che a volte riesco ad eliminare me¬ 
diante la mia discreta conoscenza 
del linguaggio. 
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Perché allora non offrire un pro¬ 
dotto migliore a tutti noi che ora¬ 
mai, chi per hobby, chi per lavoro, 
siamo diventati veramente tanti? 
Certo, capisco che non si può sem¬ 
pre pretendere di avere programmi 
perfetti, ma almeno si cerchi di cor¬ 
reggere con delle annotazioni di er¬ 
rata corrige pubblicate su riviste se¬ 
guenti, gli errori commessi in listati 
di riviste precedenti. 

In questo modo, almeno, c’è la pos¬ 
sibilità di rendere funzionante il 
programma anche se con un po’ di 
ritardo. 

Ad esempio, già che ci siete, perché 
non data una occhiata ai programmi 
presenti nella vostra rivista n. 18 del 
Maggio 1984? 

Se fate attenzione noterete che c’è il 
listato del programma Othello re- 
verso per Commodore 64 che non è 
perfettamente funzionante, inquan¬ 
to nelle righe di conversione da VIC 
20 a Commodore 64 la n. 34 non è 
affatto citata; inoltre, sempre nella 
stessa rivista, si potrebbe sapere per¬ 
ché nel listato di conversione di soft¬ 
ware da Apple a Commodore 64 gli 
HOME presenti nelle linee 100 - 300 
- 380 - 600 non vengono accettati dal 
sistema e quindi bloccano compieta- 
mente il programma? Bisogna sosti¬ 
tuirli con qualche altro comando 
analogo oppure scriverli in qualche 
modo particolare? 

Con quest’ultima richiesta vi sa¬ 
luto scusandomi, forse, di essere sta¬ 
to un po’cattivo ma quando si rima¬ 
ne tanto tempo a digitare alla tastie¬ 
ra senza poi avere frutti, si resta ve¬ 
ramente molto male. 

Lettera non firmata 
Napoli 


Normalmente non prendiamo in 
considerazione le lettere prive di fir¬ 
ma. ma dato che ci interessa " difen¬ 
derci” per c/uest a volta facciamo una 
eccezione. 

Abbiamo sempre detto che le critiche, 
specie se costruttive e documentate. 




OSTA 


sono sempre bene accette perché ci 
aiutano a migliorare il prodotto da 
offrire ai nostri lettori. Nel caso spe¬ 
cifico de! lettore di Napoli, torniamo 
volentieri su un argomento già affron¬ 
talo. perché di basilare importanza 
per la nostra rivista. 

È ovviamente di fondamentale impor¬ 
tanza che una rivista dedicata alla 
programmazione di home computer 
cerchi di fare in modo che il materiale 
pubblicalo sia perfettamente funzio¬ 
nante. 

Il nostro maggiore sforzo, in effetti, è 
quello di selezionare tra i numerosis¬ 
simi lavori che ci giungono in redazio¬ 
ne. quelli che. oltre alla qualità intrin¬ 
seca, diano le maggiori garanzie di 
buon funzionamento. 

Abbiamo scritto, e ribadiamo, che 
la certezza di un funzionamento per¬ 
fetto in questo campo non esiste, ma 
riteniamo, senza falsa modestia, di 
fornire un prodotto piuttosto affida¬ 
bile. 

Per quanto riguarda Othello per C 
64. pubblicato nel numero 18 del mese 
di Maggio, è vero che non funzionava 
e questo a causa non soltanto di una 
linea mancante, ma anche di altri er¬ 
rori. Ma è anche vero che a pag. 19 del 
numero 20. in edicola a fine Luglio - 
più di un mese prima dell’arrivo in 
redazione della lettera de! lettore na¬ 
poletano - venne pubblicata una erra¬ 
la corrige completa di scuse per i let¬ 
tori. 

Le istruzioni HOME presenti nel li¬ 
stato di conversione da Apple a C 64. 
non vengono accettate da quest’ulti¬ 
mo in quanto il corrispondente co¬ 
mando è: PR/NT " <SHIFT- 
CLR/HOME >” ottenuto digitando 
il tasto CI.R mentre si tiene premuto 
SH1F T. 

Questa differenza, evidenziata nella 
linea IO del listato, non è stata ribadi¬ 
ta nelle successive linee contenenti l'i¬ 
struzione HOME, in quanto data per 
scontata dall'autore. Ci scusiamo con 
chi avesse avuto dei problemi di inter¬ 
pretazione. 
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RIVENDITORE AUTORIZZATO 


^cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 


Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE /1005 / 1010 /1030 
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Anche la RAI fa Chip 


“TG2 Chip - quando il piccolo è 
...grande” è il titolo di una trasmis¬ 
sione di alfabetizzazione informati¬ 
ca realizzata dalla redazione milane¬ 
se del TG2. Articolata in un lotto 
iniziale di cinque puntate (a partire 
dal 17 Settembre), la trasmissione 
ha cercato di inserirsi nel dibattito 
sulle nuove tecnologie attualmente 
in corso, cercando di far convivere 
cultura tecnica e divertimento. Ac¬ 
canto a filmati, interviste, servizi 
dallo studio, è stato infatti proposto 
un quiz, avente come posta in gioco, 
allettanti viaggi nelle località tecno¬ 
logicamente all’avanguardia. Al 
momento in cui concludiamo il gior¬ 
nale non è ancora certa la ripresa 
della trasmissione che sicuramente 
ha bisogno di più ampi spazi per 
approfondire il discorso. 


... in breve ... 


• La Elma Computers importerà e 
distribuirà in Italia i microcomputer 
Bondwell 12 e 14, portatili, con 
CP/M. basati su Z80, con video da 9 
pollici a 25 righe e 80 colonne, due 
floppy incorporati e tastiera italiana 
QZERTY separata. Nei prossimi 
mesi altri annunci completeranno la 
gamma verso i 16 bit MS-DOS IBM 
PC compatibili. - ELMA Compu¬ 
ters S.n.c., Via S. Laghi, 4/E-34123 
Trieste - Tel. 040-793211. 

• La Condor Informatics acquisisce 
la rappresentanza italiana della Di¬ 
gital Research, la casa che ha creato 
il CP/M. I nuovi prodotti annuncia- 
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ti per l’occasione, sonoStarLink, un 
package software e hardware che 
trasforma un IBM PC (o un compa¬ 
tibile) in un sistema con quattro po¬ 
sti di lavoro, e il Presentation Ma¬ 
ster, un prodotto che consente di 
trasformare in diapositiva tutto 
quello che può apparire sullo scher¬ 
mo dei PC (come sopra, originali 
IBM o replicanti). - Condor Infor- 
matics Italia, Via Grancini, 8 - 
20145 Milano - Tel. 02-434562 
• Gli apparecchi televisivi Grundig 
dotati di una presa SCARTpossono 
essere resi idonei per il Btx (l’utilizzo 
privato del videotext), funzione che 
è invece presente di serie in alcuni 
modelli dotati di EUROM - decoder 
incorporato. La casa tedesca ha in¬ 
oltre realizzato una nuova serie di 
televisori portatili a colori (da 14 e 
20 pollici) particolarmente studiati 
per la riproduzione di testi (TV via 
cavo o in collegamento a computer). 


Microelaboratori portatili 
dal Tecnomasio 


Una notizia un po’ curiosa per i let¬ 
tori di Personal Software, ma certa¬ 
mente interessante per rendersi con¬ 
to della labilità dei confini delle di¬ 
verse modalità di applicazione degli 
amati microprocessori. Il Tecnoma¬ 


sio italiano Brown Boveri ha am¬ 
pliato la propria gamma di microe¬ 
laboratori portatili, realizzando, 
con il modello MK III, uno stru¬ 
mento particolarmente adatto alle 
esigenze della vendita e della tentata 
vendita. Completamente program¬ 
mabile nel linguaggio ad alto livello 
POMS-BBC, l’MK III tende ad ap¬ 
plicazioni alfanumeriche mono o bi¬ 
direzionali, con un’ampia serie di 
versatili opzioni: penna ottica per la 
lettura di codici a barre, mini stam¬ 
pante termica o a impatto, route- 
printer in contenitore per la stampa 



di bolle o fatture, installabile anche 
su automezzi, minitastiera ergono¬ 
mica esterna, accoppiatore acustico 
bidirezionale. Le interfacce verso le 
opzioni citate, ed una porta RS-232 
ad alta velocità, sono di serie. I dati 
trasmessi possono essere gestiti da 
un modulo di ricezione interfaccia- 
bile a qualsiasi host computer, dal- 
l’IBM PC e dal PDP 11 (fino a 12 
linee telefoniche). 

T1BB S.p.A. 

Piazzale Lodi, 3 
20137 Milano 
Tel. 02-57972239 
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Non passa mese, senza la consueta 
razione di prodotti applicativi per le 
varie macchine della Commodore. 
Questa volta è il turno di due stru¬ 
menti per il C 64 e di un programma 
per lo studio di funzioni matemati¬ 
che su VIC 20. VIC Graf si rivolge a 
studenti e insegnanti di scuole supe¬ 



riori, e permette di eseguire il grafico 
di una funzione algebrica o trigono- 
metrica, esprimibile con un massi¬ 
mo di 76 caratteri, senza passare ore 
ed ore con carta millimetrata e cal¬ 
colatrice. Inserita la cartuccia che 
contiene il programma, verrà richie¬ 
sta la funzione da studiare: occorre¬ 
rà introdurla facendo uso della no¬ 
tazione BASIC. Una funzione nor¬ 
malmente espressa come: 

y =_2 tan - cos 3x 

2 

diventa pertanto: 
y =2*tan(x/2)*cos(3^x). 

Dopo aver indicato l’intervallo di 
riferimento che interessa, è possibile 
vedere il grafico della funzione scel¬ 
ta, tracciato in alta risoluzione sul 
video e riferito ad assi calcolati dal 
programma, in baseairintervallo ri¬ 
chiesto ed ai massimi e minimi as¬ 
sunti dalla funzione in esso. Il grafi¬ 
co è accompagnato da una nota che 
sale o scende al crescere e decrescere 


della funzione: se il calcolo richiede 
molto tempo macchina, è possibile 
dedicarsi nel frattempo ad altro, ed 
esaminare il risultato solo quando il 
VIC 20 avrà terminato di emettere 
suoni. E’ possibile poi, modificando 
gli estremi dell’intervallo di riferi¬ 
mento, ingrandire la parte di curva 
che interessa o variare alcuni para¬ 
metri per studiarne l’influenza sul 
suo andamento. VIC Graf, che con¬ 
sente anche il calcolo dell’integrale 
di una sezione di curva secondo il 
metodo Simpson, è in vendita a 
95.000 lire, IVA esclusa. 

Per il Commodore 64 è arrivato (fi¬ 
nalmente!) Super Expander, una 
cartuccia che mette a disposizione 
del programmatore due dozzine di 
nuovi comandi che facilitano il con¬ 
trollo della grafica a colori e della 
sintesi sonora. Non è proprio la fine 
dell’indefesso PEEK e POKE, cui 
erano costretti fino ad oggi gli utenti 
C 64 per sfruttare le potenzialità del¬ 
la macchina, ma poco ci manca. Il 
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BASIC 2.0 standard viene infatti 
ampliato con comandi quali GRAP- 
HIC, COLOR, DRAW, POINT, 
CIRCLE, PAINT e CHAR per di¬ 
segnare figure sullo schermo ad alta 
risoluzione, colorarle e completarle 
con testi esplicativi. Il comando 
SOUND, con i suoi parametri, per¬ 
mette di far suonare note singole o 
accordi, di altezza, intensità e dura¬ 
ta definite a programma. Esistono 
poi diversi comandi di lettura in me¬ 
moria che consentono di ottenere i 
valori provenienti da diversi stru¬ 



menti di input (joystick, paddle, 
penne luminose) senza dover ricor¬ 
rere a noiosi POKE. Super Expan¬ 
der Commodore, che assegna agli 
otto tasti funzione, i comandi ag¬ 
giuntivi più usati, è in vendita a 
75.000 lire, IVA esclusa. 

L’ultimo strumento di questa onda¬ 
ta è Easy Script, un prodotto per 
l’elaborazione di testi, per il cui uso 
è consigliabile disporre anche di let¬ 
tore di floppy e stampante. Questo 
word processor, specificamente rea¬ 
lizzato per il C 64, visualizza 24 ri¬ 
ghe da 40 caratteri e permette di 
creare, correggere, archiviare e 
stampare testi di qualsiasi natura. 
Oltre alle funzioni di correzione e 
inserimento “locale”. Easy Script 
prevede anche la “Ricerca e Sostitu¬ 
zione” per modificare in tutto il te¬ 
sto una certa parola con un’altra. 
Appositi comandi, permettono di 
definire le dimensioni esatte della 
pagina di stampa, le intestazioni ed 
eventuali personalizzazioni; è previ¬ 
sta anche l’opzione Mail Merge per 
creare circolari personalizzate. Easy 
Script, che può utilizzare tutte le 
stampanti Commodore e alcuni tra i 
modelli più diffusi sul mercato, è 
distribuito su disco ed è venduto, 
con un ponderoso manuale esplica¬ 
tivo, a 75.000 lire, IVA esclusa. 

Opinione 

Via G. G. Mora, 22 
20123 Milano 
Tel. 02-8373081 
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ERSONAL NEWS 


La famiglia MSX cresce: 
arriva YC-64 


La Kyocera Corporation - Yashica 
Division, annuncia l’home compu¬ 
ter YC-64, caratterizzato da un bel 
design, cosa non nuova agli appas¬ 
sionati di fotografia che ben cono¬ 
scono le macchine Yashica e Con- 
tax, e dall’estrema compattezza. E’ 
il primo frutto di una collaborazio¬ 
ne tra due aziende ben avviate (la 
Kyocera detiene il 70% del mercato 
mondiale dei componenti di base in 
ceramica dura per la costruzione di 
circuiti elettronici) e nasce all’inse¬ 
gna del nuovo standard MSX. Basa¬ 
to su una CPU Z80, lo Yashica YC- 
64 si colloca nella fascia media degli 
home computer e si può connettere 



al televisore di casa; esistono possi¬ 
bilità di collegamento con un regi¬ 
stratore esterno (un lettore di car¬ 
tucce è incorporato), con stampante 
(interfaccia parallela Centronics) e 
con un floppy disk. A questo propo¬ 
sito occorre segnalare la prossima 
espansione dello standard MSX ver¬ 
so un suo DOS (Disk Operating 
System) per la gestione dei floppy. 
La distribuzione in Italia è affidata 
alla Fowa. 

Fona S.p.A. 

Via Tabacchi, 29 
10132 Torino 
Tel. 011-897373 


Un video da gran premio 


Un’altra segnalazione dalla terra di 
Albione: la Microvitec annuncia di 
aver realizzato un monitor più eco¬ 
nomico degli specifici apparecchi ad 
alte prestazione, ma di qualità supe¬ 
riore rispetto ad un ordinario televi¬ 
sore. Il CUB 452, predisposto con 
un sistema di visualizzazione che ac¬ 



cetta i segnali RGB (rosso verde e 
blu) inviati dal computer, è stato 
premiato con l’assegnazione del 
Queen’s Award for Technological 
Achievement, uno dei più prestigio¬ 
si riconoscimenti britannici all’in¬ 
dustria. Lo schermo da 14 pollici è 
disponibile in uno stipetto del colore 
che più si accosta a quello dell’ela¬ 
boratore con cui verrà accoppiato; il 
CUB 452 è direttamente collegabile 
alla rete ed è già stato diffuso in oltre 
3.000 scuole inglesi, grazie anche al¬ 
la disponibilità di interfacce verso 
quasi tutti i personal oggi in com¬ 
mercio. 

Microvitec Ltd 
Futures Way. Bolling Roacl 
Bradford England BD4 7TU 
Tel. (0274) 390011 
Telex 517717 



M A G A Z I N E 


La rivista dei 
sistemi MS-DOS 

La guida completa 
del personal 
computer IBM 
e compatibili 



EDITORIALE JACKSON 
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Leoni 


/ 

Leon \ Informatica 

\ 

V_ 

HARDWARE & SOFTWARE 
HOUSE 

J 


HOTLINE 

linea telefonica dedicata alla 
risoluzione dei problemi dei clienti. 

Chiamando il numero telefonico 
riservato che troverete sulla 
cartolina garanzia acclusa al 
programmi, riceverete tutte le 
informazioni che vi necessitano. 

COMMODORE 64' SOFTWARE 

SOFTWARE PER COMMODORE 64 E PLUS/4 il presente listino entra ,n vigore 

dal 25settembre 1904 

Programmi in configurazione base C) IVA esclusa 


UPDATE 

servizio di aggiornamento continuo 
dei programmi acquistati. 

Ogni modifica ai programmi 
realizzati dalla Leoni Informatica 
sarà fornita agli utenti degli stessi. 


GARANZIA 

tutti i programmi Leoni Informatica 
sono coperti da garanzia a Vita 
contro guasti di origine. 


Cod 

Descrizione 

Prezzo 

Cod 

Descrizione 

Prezzo 



PERSONALI 



0046 

Ammortamento Mutui 

60000 

0049/T 

Totoplus 

100 000 

0050/T 

Totocalcio a sviluppo colonnare 

80 000 

0051/T 

Gestione dei Conti di casa 

1 « 0.000 

0058/T 

Calcolo dell'equo canone 

80 000 

0055/T 

Impariamo il BASIC 

1O0.OÒO 

0059/T 

Modello 740 

tOCXJOO 

0063 

Cento programmi BASIC 

80 000 

0066 

Conto corrente 

100 000 

0091/T 

Rubnca telefonica 

100 000 

0176 

Diary 64 (Commodore) 

95000 

0174/T 

Corso di Dattilografia 

80000 



GESTIONI GENERALI 


9047 

Anagrafiche 

150 000 

0056 

Dichiarazione I VA 

6O.OO0 

0065/T 

Fido Clienti 

100.000 

0067 

Piano dei Conti (cli/for/gen) 

100.000 

0066 

Appuntamenti 

100 000 

0071 

Ordini (cli/for) 

100000 

0090 

Mailing List (nordmo alfabetico cap prov » 

tooooo 

0094 

Scheda 4800 car (cli/for/rapp /az etc ) 

100 000 

0096 

Scheda 4800 car agganciata al Mailing 

150 000 

0097 

Super Mail (5 chiavi accesso, riordini ) 

180000 

0116 

Scadenzano effetti (nc bancarie tratte, etc ) 

tooooo 

0120 

Contabilità (allure (Iva. impon eie ) 

100.000 

0121 

Contabilità Semplice (Tratte/Fatt /Conti/etc ) 

250000 

0160 

Bolle e Fatture 

200 OCO 

0125 

Contabilità Generale (t32 colonne) 

300 000 






GESTIONI SPECIFICHE 


0045 

Agenti e Rappresentanti 

150000 

0046 

Scadenzano premi e polizze 

150000 

0164 

Agenzie Immobilian 

150 000 

0086 

Librene e biblioteche 

120000 

0148 

Studi Ottici 

200000 

015! 

Farmacie 

300.000 

0149 

Studi Dentistici 

200000 

0152 

Studi Medici 

200.000 

0131 

Hotel e Pensioni 

280 000 

0132 

Parrucchien 

280 eoo 

0133 

Gommisti 

280.000 

0134 

Clubs Nautici 

280 000 

0135 

Officine 

280 000 

0171 

Ristoranti 

280.000 

0170 

Tavola Calda 

280 000 

0172 

Lavandone 

280 000 

0175 

Condominio New (132 colonne) 

400000 






GESTIONE TESTI 



0190 

Hes Wnter 

70000 

0191 

Word Processor III 

100000 

®192 

Bank Street Wnter 

70 000 

0319 

Easy Scnpt/T (Commodore) 

75000 



TECNICI 



0136 

Legge 373 (calcolo degli isolamenti termici) 

100-000 

0140 

ingegneria civile 1 (calcoli strutt ) 

100.000 

0141 

Ingegneria civile II (travi intelaiate» 

100 QOO 

0404 

Computo metrico 

200.000 

0409 

Diagnostica C64 

40 000 

0322 

Doctor 64 

60 000 



MAGAZZINI 



0142 

Magazzino e Fatturazione semplici 

100000 

0143 

Magazzino Grossisti (2500 art ) 

280 000 

0144 

Magazzino e Fatturazione agganciati 

200 000 

0158 

Magazzino Dettaglio (2500 art) 

280000 

0148 

Magazzino codice alfanumerico (600 art ) 

200.000 

0159 

Magazzino Taglia/Coi (2500 art ) 

280000 



LINGUAGGI & UTILITIES 


0162/T 

Screen Grafix (Abacus) 

85000 

0163 

Copia Disco singolo 

50000 

0064 

Petspeed Compilar (Commodore) 

80000 

0165/T 

Zoom 

70.000 

0167 

Simon s Basic (Commodore) 

85 000 

0168/T 

Turbo Tape 

50 000 

0177 

Pilot (linguaggio) 

70000 

0178 

Ultra Basic 

125000 

0179 

Comp/Scompactor 

50 009 

0193/C 

Basic 4 0 

80000 

01W 

Spnte Generator 

70000 

0195 

Assemblor 

80 000 

0196 

S A M (Tronix) 

100 000 

0197 

G Pascal 

95000 

0198 

Forth 64 (Commodore) 

95000 

0199 

Tol 64 

85000 

0200 

Master (Commodore) 

145.000 

0201/C 

Scheda CP/M (Commodore) 

125000 

0333 

Clone machine 

100.000 

0334 

Unguard 

200 000 

0335 

Fast Copy 4 5 

100 000 

0336 

Music Composer 

150 000 

0337 

Basic Programm Generator 

250 000 

0338 

Copy Ftles 

80 000 

0320 

The MANAGER 64 

100.000 

0321 

Austro Compilatore 

80000 

0210 

Lite Pen (incluso sotfware) 

130 000 






GESTIONE DATI 



0157 

Easy Cale 

125000 

0205 

Super Baso 

175000 

0206 

Magic Desk (Commodore) 

75000 

0207 

Koala Joystick 

100 000 

0209 

Data Log 

120000 

0220 

Easy Cale Tape 

125 000 

0400 

Stock Control 

120 000 

0401 

Easy Label 

120 000 



N B (*) Per configurazione base st intende Commodore 64. Floppy 1S41. Stampante Commodore a 80 colonne 
I codici barrati T sono disponibili anche su cassetta, quelli barrati C sono Cartridge 

Direzione Commerciale» via Valsolda, 21 
20143 MILANO - tei. 02/8467378 
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Negozio vendite al pubblico: Milano - Corso di Porta Romana, 123 














Largo ai giochi EPYX 


La CBS Electronics assicura anche 
in Italia, il lancio e la distribuzione 
dei prodotti EPYX. E’ un nome pro¬ 
babilmente nuovo per il nostro mer¬ 
cato, ma individua un’azienda che 
nel 1983 ha realizzato un giro d’affa¬ 
ri supcriore ai nove milioni di dollari 
(forza, quante lirette fanno al cam¬ 
bio di oggi ?) mentre i suoi giochi 
compaiono con un’implacabile fre¬ 
quenza nelle classifiche dei best¬ 
seller. La linea attuale di marketing 
studia in modo particolare la perso¬ 
nalizzazione del prodotto e tende al¬ 
l’ampliamento del concetto di gioco 
elettronico: non più solo gare basate 
sui riflessi e la velocità d’azione, ma 


p— - - 

J ERSONAL NEWS 


anche molti giochi strategici miranti 
a valorizzare le capacità di ragiona¬ 
mento e l’abilità tattica di chi si mi¬ 
sura con essi. Il catalogo iniziale 
contiene una serie di allettanti titoli 
per Commodore 64 e consolle CBS- 
Coleco. 

VPR 

Via Mascheroni, 1 
20123 Milano 
Tel. 02-437227 


E’ arrivato un bastimento 
carico di videogiochi 

Dall’Inghilterra la Mastertronic ha 
deciso di invadere anche l’Italia con 
un agguerrito catalogo di video ga¬ 
me per C 64, VIC 20 e Spectrum, 



distribuiti su cassetta ad un prezzo 
decisamente competitivo. Da Set¬ 
tembre i videogiochi Mastertronic, 
realizzati su cassette Basf, sono in 
vendita a 7.900 lire l’uno (IVA inclu¬ 
sa). La gamma iniziale comprende 
34 titoli e va dalle avventure spaziali 
ai giochi d’azzardo. 

Mastertronic S.a.s. 

Via Staurenghi, 31 
21100 Varese 
Tel. 0332-288666 


NEL PROSSIMO NUMERO DI 


TROVERETE 


• ARCHIVIO PER SPECTRUM 

• TITOLAZIONE CON LO SPECTRUM 

• GRAFICA E JOYSTICK PER APPLE 

• WORD PROCESSING PER TI99/4A 


• ALTA RISOLUZIONE CON C 64 

• TORNEO DI BRIDGE PER APPLE 

• COME PROGRAMMARE 

UN ADVENTURE CON IL C 64 

• TESTI PERSONALIZZATI CON SHARP 
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Il Reco Regalo Interamente Elettronico 

INSTANT COMPUTING PER PRINCIPIANTI 



T J omecomputing - il diveriimento senza 
Il line con programma di giochi e d'utilità 
per chiunque! Un messaggio lieto per tutti 
coloro che non hanno ancora un compu¬ 
ter e pensano che tale divertimento sia troppo 
complicato. Senta doversi sorbire corsi 
d'apprendimento che danno il capogiro, ecco 
che si può godere subito Instant Home- 
computing mediante i modelli per princi¬ 
pianti. programmati in modo tale che il novel 
lino impara lutto come per gioco! Una notizia 
favorevole per tutti coloro che possiedono un 
televisore ed un registratore mangiacassette. 
Ecco che avete già una parte essenziale 
deirimpianto del computer. Il testo è meglio 
che lo scriviate subito sulla lista dei desideri 
da esaudirvi voi stessi. Perchè alcune cose ce 
le si può regalare soltanto da sò. 

Instali t Compii line 
Pacchetto A (ICA): 

Contenuto: 1 Homecomputer SINCLAIR 
SPECTRUM 48K ©. I stampatrice 
SEIKOSHA GP-50S ©. 8 cassette-pro¬ 
gramma ©. 

Il SINCLAIR SPECTRUM ©è l'apparecchio 
con cui il Homecompuiing ha raggiunto a 
perfezione, sperimentato da milioni di utenti 
in tutto il mondo e ritenuto adatto in maniera 
ideale: un piccolo apparecchio dalle infinite 
possibilità, idoneo tanto ai giochetti quanto ai 
compiè da professionista in virtù di un 
sistema che cresce assieme all'abilità ed alle 
esigenze dell'utente, con l'offerta di appa¬ 
recchi d'ampliamento rivoluzionari. Per un 
Homecomputing che procuri gioia ci vuole 
pure una stampatrice solida e capace, che 
crei poche complicazioni e sia instanca¬ 
bile. Sotto questo profilo l'apparecchio 
SEIKOSHA GP-50S ha già fornito un'ottima 


prova: si trana di una stampante su carta nor¬ 
male con interface incorporata per SINCLAIR 
ZX8I e SINCLAIR SPECTRUM - Poi c'è il 
software: otto cassette-programma fra quelle 
di maggior successo ©.un assortimento che 
schiude ampiamente le molteplici possibilità 
di gioco con il Homecomputing. Simulazioni 
come FLIGHT SIMULATION e CHEQUERED 
FLAG (corsa automobilistica). Giochi su 
scacchiera come SCACCHI. BACKGAMMON 
e REVERSI. Cartoons come COOKIE e PSSST 
ed avventure nello spazio come JET PAC. 
Prezzo per ICA: Lire 678.000 

Instali t Computing 
Pacchetto B (ICB): 

Contenuto: I Homecomputer SINCLAIR 
SPECTRUM 48K ©. 1 THURNALl DISKET- 
TEN STATION ©. 8 cassette-programma ®. 
Il materiale normale per la memoria del 
Homecomputer sono le cassette. Il materiale 
normale per la memoria del computer da pro¬ 
fessionista sono i dischetti. La THURNALL 
DISKETTEN STATION ©. una sensazione 
nuova di zecca, fa parte degli apparecchi 
d'ampliamento rivoluzionari, con cui l'utente 
esigente può trasformare un semplice SPEC¬ 
TRUM in un apparecchio da vero profes¬ 
sionista d'alto pregio: un floppy disk con una 
capacità di 150K per dischetto. 

Prezzo per ICS: Lire 1.098.000 

Instant Computing 
Pacchetto C (ICC): 

Contenuto: I ZX Interface 1 ed 1ZX Micro¬ 
drive ©. 

Il piccolo strumento prodigio viene innestato 
sul ZX Spectrum ed ecco che entriamo già in 
una nuova fase della comunicazione tramite 


computer: diventa possibile un gran numero 
di allacciamenti e di contatti, la struttura di 
una rete d'interconnessione ZX diviene 
quindi un gioco da bambini. 

Con il ZX Microdrive ecco che Clive Sinclair è 
riuscito In ciò che prima soltanto Colombo 
aveva ottenuto con il suo famoso uovo: a 
sostituire il floppy disk troppo costoso e 
l'interface a cassette troppo lenta con una 
cosa del tutto nuova per il ZX Spectrum: un 
apparecchio delie dimensioni di un pugno 
che consente un accesso istantaneo alle 
possenti capacità di memoria. Il ZX 
Microdrive è una memoria di massa senza 
precedenti e senza concorrenza. 

Prezzo per ICC: Lire 319.000 

Instant Computing 
Pacchetto D (ICD): 

Contenuto: 1ISS RECOROER OEI DATI ©. 
L'apparecchio ISS RECORDER DEI DATI ©è 
una novità che arriva sul mercato appena in 
questi giorni ed offre, in aggiunta alla dota¬ 
zione consueta dei registratori mangia¬ 
cassette, molte altre funzioni e piacevoli 
accorgimenti che facilitano l'uso del 
computer. 

Prezzo per ICO: Lire 69.000 

Instant Computing 
Pacchetto E (ICE): 

Contenuto: I Joystick QUICK SHOT inclusa 
interface con 2 allacciamenti©. 

Lo Joystick è la barra di comando in mano al 
giocatore che si avvale del computer. La 
nostra marca ©è talmente solida da resistere 
alle vibrazioni dei giochi più accesi. L'inter¬ 
face con 2 allacciamenti permene di giocare 
con gli Joysticks. 

Prezzo per ICE: Lire 59.000 




Ecco L’instant 
Action Coupon 


Descrizione 

a. ti 

Prezzo 

unitario 

Instant Computing 
Pacchetto A1ICA) 


878.000 

Instant Computing 
Pacchetto B (ICB) 


1098.000 

Instant Computing 
Pacchetto C (ICC) 


319.000 

Instant Computing 
Pacchetto D /ICO/ 


69.000 

Instant Computing 
Pacchetto E (ICE) 


59.000 

Sinclair Spectrum 
48K + 8 Cassette 
programma 


399.000 

Thurnaii Diskettan 
Station 


749.000 

Seikosha GP-50S 


289.000 


desi darò ricevere H materiale indicato 
nelle tabelle, a meno pecco postele contro 
assegno e! seguente indir ino: 


Nome 


Cognome 


Via 


Citta 


Data 

CAP 

PAGAMENTO: 



1. Anticipato, mediante assegno circolare 
o veglie postale per l'importo totale 

dell ordinazione. 

2. Contro assegno in questo ceso, i indis¬ 
pensabile versare racconto di lira 50. OOO 
mediante assegno circolare o vaglie pos¬ 
tele. Il saldo seri regolato contro assegno. 
AGGIUNGER!: I. 5.000per contributo 
fisso. I preni sono comprensivi di I. HA. 

c mi iv 

Sei COMPUTER 
Vie F. Ambrosiai. 2E 

40131 Bologne, Tei (OSI) 554230 3 


































Tombola 

per Sharp MZ-700 


È il classico gioco 
delle feste natalizie 


di Martino Sangiorgio 

S ul video viene disegnata la 
tombola, completa dei 90 
numeri. 

L’elaboratore tiene il banco ed 
estrae a caso un numero. 

I numeri estratti vengono evidenzia¬ 
ti sul video con un diverso colore, e il 
video viene costantemente aggior¬ 
nato. 

Cosa c’è di meglio, nelle fredde sera¬ 


te invernali, che riunirsi tutti, grandi 
e piccini, accanto al caminetto a gio¬ 
care a tombola? Questo gioco, che 
ha sempre riunito, oltre alla fami¬ 
glia, i nonni, i suoceri, gli amici, i 
vicini di casa e molta altra gente 
ancora, è rimasto lo stesso per gene¬ 
razioni. 

Il tabellone completo (cioè il banco) 
è stato sempre tenuto dalla persona 
più vivace e intraprendente, mentre 
quintali di chicchi di riso, di grano, 
di piselli, di bottoni sono stati utiliz¬ 
zati come segna-numeri. 

Ora, nell’epoca elettronica, qualco¬ 
sa è cambiato. Il televisore ha ormai 
surclassato il caminetto, i giochi 
elettronici imperversano, per cui an¬ 


che la tombola, per sopravvivere, ha 
dovuto adeguarsi. 

Ed ecco che, in una fredda serata 
invernale, mentre il resto della fami¬ 
glia parlotta annoiata, Silvia, la più 
piccola ma la più vivace del gruppo, 
dopo aver trafficato qualche minuto 
col nuovissimo Sharp MZ-731 e col 
televisore, compone il fatidico 
RUN, schiaccia un tasto e sul video 
si forma, velocemente, nero su bian¬ 
co, l’immagine del tabellone della 
tombola: tutti i 90 numeri, in gruppi 
di cinque, proprio come sul tabello¬ 
ne vero. 

Una musichetta accompagna l’e¬ 
strazione del primo numero. “È 
uscito il 48”, annuncia il televisore, 


Listato 1. Il programma natalizio. 


'0 REM *-* 

20 RED * TOMBOLA * 

30 REM * * 

40 REM * versione SHARP M2-700 * 

50 REM * 28/06/84 * 

60 REM *-* 

70 COLOR ,,0,7 
80 PRINT "B" 


90 DIM TC903 > A$C 183,CXC183»CY( 183 
100 B$=" 

110 SR$="+A3+ftF1+A+B3A+D+#FIA+D3A+D+NF1 A 
+D3+#F1A+D+E+#F+G+A3R" 


1 20 

DATA 

"01 

02 

03 

04 

05" 

130 

DATA 

"06 

07 

08 

09 

10" 

140 

DATA 

"11 

12 

13 

14 

15" 

150 

DATA 

"16 

17 

18 

19 

20" 

160 

DATA 

"21 

22 

23 

24 

25" 

170 

DATA 

“26 

27 

28 

29 

30" 

180 

DATA 

"31 

32 

33 

34 

35" 

190 

DATA 

"36 

37 

38 

39 

40" 

200 

DATA 

"41 

42 

43 

44 

45" 

210 

DATA 

"46 

47 

48 

49 

50" 

220 

DATA 

"51 

52 

53 

54 

55" 

230 

DATA 

"56 

57 

58 

59 

60" 

240 

DATA 

"61 

62 

63 

64 

65" 

250 

DATA 

"66 

67 

68 

69 

70" 

260 

DATA 

"71 

72 

73 

74 

75" 


270 DATA "76 77 78 79 80" 

280 DATA "81 82 83 84 85" 

290 DATA "86 87 88 89 90" 

300 FOR J=1 TO 18 
310 READ A$CJ3 
320 NEXT J 

330 REM * DISEGNO DEL.LE CARTELLE * 

340 CURSOR 4,1 

350 PRINT 

360 FOR J=5 TO 35 

370 CURSOR J, 1 

380 PRINT "£0" 

390 NEXT J 
400 CURSOR 36, 1 
410 PRINT "CE." 

420 FOR J=2 TO 18 
430 CURSOR 4,J 
440 PRINT "£D" 

450 CURSOR 36,J 
460 PRINT "FD" 

470 NEXT J 
480 CURSOR 4,19 
490 PRINT "CD" 

500 CURSOR 36,19 
510 PRINT "DQ" 

520 FOR J=5 TO 35 
530 CURSOR J, 19 
540 PRINT r E0" 

550 NEXT J 
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mentre la casella del 48 si colora in 
verde. 

Il resto della famiglia, finalmente 
scossa dal torpore, si rifornisce im¬ 
mediatamente di cartelle (eh si, 
quelle ci vogliono ancora) c di chic¬ 
chi di riso (il granoturco, ormai, non 
si vede più in giro), e il gioco inizia. 
“Posso continuare?” chiede il televi¬ 
sore, e Silvia, che tiene il banco, 
quando tutti sono pronti, risponde 
schiacciando un tasto qualsiasi: solo 
il tasto N non deve essere usato, per¬ 
chè interrompe il gioco, e Silvia lo sa 
bene. 

Ad ogni numero, determinato a ca¬ 
so dal calcolatore, l’equivalente ca¬ 
sella della tombola sul video si colo¬ 


ra in verde. Dopo un po’ il nonno, 
che è sempre l’ultimo a collocare i 
chicchi di riso perchè, esagerato co¬ 
me sempre, si è beccato ben 10 car¬ 
telle, alza la testa per domandare: 
“È uscito il ...?”. Al che. Silvia es¬ 
plode: “Ma certo, nonno, non Io ve¬ 
di, sul televisore, che è diventato 
verde?”. 


Variabili utilizzate 

T(90) - Tabella di 90 elementi: serve 
per conoscere quali numeri sono già 
stati estratti. 

A$(18) - Tabella contenente i 18 
gruppi di cinque numeri da stampa¬ 


re sul tabellone. 

CX(18) - Tabella contenente i nume¬ 
ri di colonna di inizio dei 18 gruppi 
di cinque numeri. 

CY(18) - Tabella contenente i nume¬ 
ri di riga di inizio dei 18 gruppi di 
cinque numeri. 

SR$ - Contiene la melodia che viene 
suonata ad ogni estrazione di un nu¬ 
mero. 

I - Contiene il numero estratto at¬ 
tualmente. Serve anche come indice 
per posizionare a I l’elemento equi¬ 
valente della tabella T, in modo che 
il numero attuale non venga più uti¬ 
lizzato se estratto di nuovo successi¬ 
vamente. 

RX - Coordinata di colonna del ca- 


Seguito listato Tombola. 

560 DATA 5,22,5,22,5,22,5,22,5,22 
570 DATA 5,22,5,22,5,22,5,22 
580 FOR J = 1 T.O 18 
590 READ CXCJ3 
600 NEXT J 

610 DATA 2,2,4,4,6,6,8,8,10,10 
620 DATA 12,12,14,14,16,16,18,18 
630 FOR J=1 TO 18 

640 READ CYCJ3 

650 NEXT J 

660 FOR J = 1 TO 18 

670 CURSOR CXCJ3,CYCJ3 

680 PRINT A*CJ3 

690 NEXT J 

700 RED * CORPO DEL GIOCO * 

210 I=INTC90*RNDC133+1 

220 IF TCI3=1 THEN 710 

230 TU 3 = 1 

740 CURSOR 4,21 

250 PRINT "E' USCITO IL ”5I 

260 GOSUB 960 

770 FOR K=1 TO 90 

780 IF TCK)=0 THEN 810 

790 NEXT K 

800 GOTO 930 

810 CURSOR 4,23 

820 PRINT ‘POSSO CONTINUARE? CS/N3" 


830 TEHP0 7 
840 MUSIC. SR$ 

850 GET R$ 

860 IF R4= , "‘ GOTO 850 
870 IF R$="N" THEN 930 
880 CURSOR 4,21 
890 PRINT B$ 

900 CURSOR 4,23 
910 PRINT B$ 

920 GOTO 710 
930 COLOR ,,7,1 
940 PRINT "H" 

950 END 

960 RED * COLORA IN UERDE IL NUMERO EST ' 
RATTO * 

970 II-INTCCI-1 3U03 

980 12=11+1 

990 13=I — CI1*103 

1000 IF I3<6 THEN 1040 

1010 13=13-5 

1020 I4=C11*23+2 

1030 GOTO 1050 

1040 I4=CI1*23+1 

'050 RX=CX(143 

1060 RY=CYCI43 

1070 RX=RX+CCI3-I3*33 

1080 COLOR RX,RY,0,4 

1090 RX=RX+1 

I100 COLOR.RX,RY,0,4 

'110 RETURN 
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rattere da colorare in verde. 

RY - Coordinata di riga del carattere 
da colorare in verde. 


Commento al listato 

10-60 - Commenti iniziali. 

70 - Scelta dei colori: schermo bian¬ 
co, caratteri neri. 

80 - Cancellazione video. 

90 - Dimensionamento tabelle. 
100-110 - Definizione variabili B$ 
(tutta a spazi, per cancellazione ri¬ 
ghe) e SRS (per motivo musicale). 
120-290 - Definizione dei 18 gruppi 
di numeri. 

300-320 - Lettura e intabellamento 
(in A$) dei 18 gruppi di cinque nu¬ 
meri. 

330-550 - Stampa a video il disegno 
del profilo esterno del tabellone del¬ 
la tombola. 

560-600 - Definizione e intabclla- 
mento delle colonne iniziali dei 18 
gruppi di cinque numeri. 

610-650 - Definizione e intabella¬ 
mento dei numeri di riga dei 18 
gruppi di cinque numeri. 

660-690 - Stampa dei 18 gruppi di 
cinque numeri all’interno del tabel¬ 
lone. 

710 - Determinazione di un numero 
casuale compreso fra 1 e 90 (memo¬ 
rizzato nella variabile I). 

720 - Se T(I) è uguale a 1, vuol dire 


che il numero generato attualmente 
è già uscito in passato, e quindi non 
serve. 

730 - Imposta a 1 l’elemento di ta¬ 
bella con indice uguale al numero 
generato attualmente. 

740-760 - Evidenzia a video il nume¬ 
ro estratto e colora in verde l’equi¬ 
valente numero sul tabellone (ri¬ 
chiamando la routine alla linea 960. 
770-800 - Esegue un loop nella tabel¬ 
la T finché non trova un elemento a 
zero. Se non trova nessun elemento 
a zero, vuol dire che sono stati 
estratti tutti i numeri da 1 a 90, per 
cui si può far terminare il program¬ 
ma (con un GOTO alla linea 930). 
810-920 - Chiede conferma al prose¬ 
guimento del gioco, suona una mu¬ 
sichetta, controlla quello che è stato 
digitato in risposta; se è stato pre¬ 
muto il tasto N va alla fine (cioè alla 
linea 930), altrimenti cancella le due 
ultime righe scritte e va a generare 
un altro numero casuale (alla linea 
710). 

930-950 - Fine del programma: ri¬ 
mette nelle condizioni iniziali di co¬ 
lore (caratteri bianchi su sfondo blu) 
ed effettua una cancellazione del vi¬ 
deo. 

960-1110 - È una routine che, attra¬ 
verso una serie di algoritmi partico¬ 
lari, consente di determinare le co¬ 
ordinate a video dei due caratteri 
che corrispondono al numero 
estratto. Tali coordinate vengono 
utilizzate per colorare di verde lo 
sfondo di questi due caratteri. 

I simboli sottolineati nel listato (di 
cui il plotter ha stampato i codici 
ASCII, per cui si veda a pagina 156 
del manuale) si possono ottenere, 
dopo aver battuto il tasto GRAPH, 
nel modo seguente: 

DO tasto J 

E0 tasto SHIFT + tasto W 
CE tasto SHIFT 4- tasto J 
FD tasto U 
CD tasto M 

DD tasto SHIFT + tasto M 
Dopo aver ottenuto i simboli voluti, 
per poter proseguire normalmente, 
ricordare di digitare il tasto ALP¬ 
HA. ■ 



ualcosa 

■ ■ a 

i piu 


può trasformare il suo hobby 
in qualcosa di più utile/ 
o ampliare i suoi interessi 
professionali / può ricavare 
un guadagno dal mondo del 
computer che già tanto la 
coinvolge, dedicandoci 
una parte del suo tempo, 
assistito da professionisti/ 
non le promettiamo miracoli, 
l’interesse che ne ricaverà sarà 
ovviamente funzione 
dell'Impegno che potrà o vorrà 
dedicare alla cosa/ 
non ci sono limiti, questo è 
l'interessante, da poche ore 
settimanali, a quanto lei vorrà, 
e senza che ciò le costi una lira/ 
se le interessa, ci telefoni: 
saremo estremamente chiari 
e precisi/ 

faremo anche in modo 
di incontrarci nella ns/ sede 
o nella filiale a lei più vicina/ 
ci chiami da lunedi a venerdi 
tra le 16 e le 19. 


v.m.m. s.r.l. 

20144 milano/via bergognone, 7 
tei. (02) 4981041 (r.a.) 
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Un simpatico gioco 
per il vostro C 64 


di Giuliano Peritol e 

Istruzioni e tecniche di gioco 

I l gioco si divide in tre fasi. La 
prima consiste nell’atterrare 
su una base qualsiasi (sul vi¬ 
deo ve ne sono tre) senza però atter¬ 
rare sulle numerosissime stelle pre¬ 
senti nel cielo. La seconda fase è un 
viaggio nello spazio in cui, evitando 
carburante, rifornimento, che fa 
aumentare il punteggio. Dopo que¬ 
sto viaggio si entra in un labirinto 
(abbiate un po’ di pazienza nell’a- 
spettare la sua composizione). Qui 
saranno visualizzati due caratteri 
speciali: uno, quello rosso, è il car¬ 
burante; l’altro, giallo, è l’uscita del 
labirinto. 

Il gioco consente di impiegare sia la 
tastiera che il joystick, che va con¬ 
nesso alla porta n. 2. 

Per chi non ha il joystick è utile sape¬ 
re che i tasti di comando sono nelle 
prime due fasi A, D e S che muovo¬ 
no rispettivamente a sinistra, a de¬ 
stra ed in basso. Nella terza fase in¬ 
vece i tasti sono P, •, L; che muovo¬ 
no rispettivamente in alto, basso, si¬ 
nistra e destra. 

Ogni volta che viene completata una 
fase del gioco vi sarà la somma dei 
punti premio (bonus) che farà ripo¬ 
sare il giocatore per qualche attimo. 

Consigliamo ai futuri giocatori di 
aspettare, nella prima fase, che l’a¬ 
stronave sia sopra la base prescelta 
prima di iniziare a scendere. Ricor¬ 
do anche che nel labirinto il tempo è 
importante: più ne passa e meno 
punti si fanno. 


pace Traveller 


Descrizione dello svolgimento 
del programma 

Prima di far partire il programma 
registratelo su disco per evitare che, 
per qualche errore nella digitazione, 
venga perduto. 

Dopo aver verificato il programma 
battete RUN e aspettate che la scrit¬ 
ta Space Traveller a caratteri cubita¬ 
li venga stampata in tutti i sedici, 
colori e che termini la programma¬ 
zione dei caratteri speciali e degli 
sprite. Il salto a questa subroutine 
verrà confermato dalla scritta 
WAIT PLEASE. 

Dopo aver soddisfatto alle richieste 
del vostro computer, verranno 
stampate le istruzioni in un simpati¬ 
co riquadro con dentro uno sprite in 
movimento. Passata anche questa 
fase si prosegue con il gioco vero e 
proprio. 

Su uno schermo nero viene stampa¬ 
to un cielo stellato e tre basi orbitan¬ 
ti che forniscono rispettivamente 
dall’alto in basso 100, 500 e 1.000 
litri di carburante. Una volta atter¬ 
rati su una delle basi, lo schermo 
diventerà giallo e, a caratteri norma¬ 
li e speciali, verranno stampati i 
punti premio in alcuni colori. Dopo 
aver premuto FI o il tasto FIRE si 
passerà alla seconda fase. 

Qui inizierà il vostro viaggio fra le 
stelle in cui dovrete prendere le riser¬ 
ve di carburante rappresentate dai 
caratteri grafici più squadrati degli 
altri. Ricordate che è necessario col¬ 
pire i serbatoi centrandoli dall’alto. 
Questo quadro di gioco è lungo 
1.000 linee di schermo. Questa lun¬ 
ghezza è modificabile agendo sulla 
linea 3350 (valore in FOR Y = 
ITO 1000). Quando il ciclo sarà sta¬ 
to compiuto si passerà alla terza fa¬ 
se. 

Prima, lo schermo verrà riempito 
con croci bianche, poi, in questo 
muro verrà scavato il labirinto. Ter¬ 


minato lo scavo, l’astronave del gio¬ 
catore posta in alto a sinistra, inizie¬ 
rà a lampeggiare. Ora il giocatore 
dovrà, nel minor tempo possibile, 
riuscire a prendere il carburante e a 
arrivare all’uscita. 

Funzioni delle principali routine 
del programma 

10-90 - Commenti iniziali sul pro¬ 
gramma. 

100-580 - Intestazione del program¬ 
ma e stampa istruzioni. 

495-580 - Movimento sprite delle 
istruzioni. 

3040 - Stampa delle stelle del primo 
quadro. 

3050-3320 - Movimento dell’astro¬ 
nave e calcolo del punteggio nel pri¬ 
mo quadro. 

3335-3400 - Movimento dell’astro¬ 
nave nel secondo quadro. 
3410-3480 - Stampa dei caratteri del 
carburante e delle meteoriti. 
3485-3610 - Ideazione e stampa del 
labirinto. 

3630-3780 - Movimento dell’astro¬ 
nave e verifica della cattura del car¬ 
burante. 

3795-3860 - Verifica dello stato del 
joystick per il terzo quadro. 
3870-3920 - Verifica dello stato del 
joystick per il primo e secondo qua¬ 
dro. 

3930-3960 - Stampa dei punti dopo 
la somma del bonus. 

3980-4060 - Stampa dei messaggi di 
fine partita. 

4070-4260 - Stampa del bonus e rela¬ 
tivi messaggi. 

4270-4300 - Stampa delle basi per il 
primo quadro. 

4305-4700 - Programmazione carat¬ 
teri speciali. 

4705-4840 - Programmazione sprite. 
8490-9000 - Richiesta di premere FI 
o FIRE per continuare. 

9000-9010 - End. 
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Spiegazione linea per linea 
del programma Space Traveller 

100 - Tutte le variabili vengono can¬ 
cellate, i caratteri vengono letti dalla 
ROM, tutti gli sprite vengono spen¬ 
ti. 

110 - Lo schermo viene cancellato, il 
suo colore diventa nero e la stringa 
C$ viene riempita con i caratteri gra¬ 
fici dei colori. 

120-240 - Viene stampata l’intesta¬ 
zione del programma con vari colo¬ 
ri. 

250-260 - Il programma salta alla 
routine di programmazione dei ca¬ 


ratteri e degli sprite. I caratteri ven¬ 
gono letti dalla RAM (vedere tabella 
delle POKE). 

270-310 - Stampa della prima videa- 
ta di istruzioni. 

320-360 - Viene verificato lo stato 
della tastiera e del joystick, e viene 
impostata la variabile TJ (TJ = 1 
per la tastiera, TJ = 2 per il joy¬ 
stick). 

380-390 - Stampa della cornice per 
la seconda videata di istruzioni. 
400-490 - Stampa delle istruzioni. 
495-580 - Muove lo sprite delle istru¬ 
zioni e verifica se qualche tasto è 
stato premuto. 


3010 - Viene azionato il repeat auto¬ 
matico di tutti i tasti e viene dimen¬ 
sionata la variabile A. 

3040 - La variabile S (quadro di gio¬ 
co raggiunto) viene aumentata di 
uno, vengono stampate sullo scher¬ 
mo (casualmente) 135 stelle. 

3050 - La variabile RI (ritardo nella 
lettura del joystick) è posta a 150, lo 
schermo viene colorato di nero. 
3060 - Il programma salta alla su¬ 
broutine di stampa delle 3 basi. 
3080-3120 - La variabile D viene 
cambiata a seconda della posizione 
dell’astronave comportando un ri¬ 
torno indietro se si raggiunge un 


Listato 1. Il programma Space Traveller. 

90 REM *** ISTRUZIONI *** 

100 CLR:POKE53272,21 :POKE53269,0 
110 PRINT"[OCLR>]:POKE53280,0 :POKE5328 
1,0:C$="[<1WHT>)[<1RED>1(<1CYN>][<1PUR>][ 
<1GRN >] [<1BLU>1 (<1YEL>] [<1ARA>] [<1MAR>] [< 
1R.C.>][<1G.1>][<1G.2>][<1V.C>][<1AZZ>][< 
1G.3>]"120 FORT=lTOl5:PRINTMID$(C$,T,1):P 
RINT" [< 1HOME> ] [<4CRSR D>]"; 

130 PRINTTAB(9)"[<3CHR$(166)>) [<3CHR$(1 

66)>] [<3CHR$(166)>1 (<3CHR$(166)>] [< 

3CHR$(166)>]" 

140 PRINTTAB(9)"[<1CHR$(166)>] [<1CHR$ 

(166)>] [<1CHRS(166)>] [<1CHR$(166)>] [< 

1CHR$(166)>] [<1CHR$(166)>] [<1CHR$(1 

66)>] " 

150 PRINTTAB(9)"[< 3CHR$ ( 1 66) > ] [<3CHR$(1 

66) >] [<3CHR$(166)>] [<1CHR$(166)>] 

[< 2CHR$(166)>) " 

160 PRINTTAB(9)" [OCHR$ ( 1 66) >] [<1CHR$ 

(166)>] [<1CHR$(166)>] [<1CHR$(166)>] 

[OCHR$ (1 66) >] [<1CHR$(166)>] " 

170 PRINTTAB(9)"[<3CHR$(166)>] [OCHR$(l 
66)>] [<1CHR$(166)>] (<1CHR$(166)>] ( 

<3CHR$(166)>] [<3CHR$(166)>]" 

180 PRINT"(<3CRSR D>]"; 

190 PRINTTAB(3)"[<3CHR$(166)>1 [<3CHR$(16 

6)>] (<3CHR$(166)>] [<1CHR$(166)>] [<1CHR 

$(166)>) [< 3CHRS(166)>] [<1CHR$(166)>] 

(<1CHR$(166)>1 (<3CHR$(166)>) [<3CHR$(1 

66 )>]» 

200 PRINTTAB(3)" [OCHR$ ( 1 66) >) [<1CHR$( 

166)>] (<1CHR$(166)>] (<1CHRS(166)>] ( < 1C 

HR$(166)>] [<1CHR$(166)>] [<1CHR$(166)>] 

[<1CHR$(166)>] [OCHR$ ( 1 66) >] [<1CHR$ 

(166)>] (<1CHR$(166)>] [<1CHR$(166)>] 


[<1CHR$(166)>]" 

210 PRINTTAB(3)" [<1CHR$(166)>] [<3CHR$( 

166)>] [<3CHR$(166)>) [<1CHR$(166)>) (<1C 

HR$(166)>] (<2CHR$(166)>1 [<1CHR$(166)>1 

[<1CHR$(166)>] (<2CHR$(166)>] [<3CH 

R$ ( 166) >) " 

220 PRINTTAB(3)" [<1CHRS(166)>] (<1CHR$( 
166) >) (<1CHR$ (220) >1 [< 1 CHR$ ( 1 66) >) [OC 

HR$(166)>] [<1CHR$(166)>) [<1CHR$(166)>) 

(<1CHR$(166)>] [<1CHR$(166)>] [<1CHR$ 

(166)>] [<1CHR$(166)>] [<1CHR$(166)>1 

[OCHR$ (220)>]" 

230 PRINTTAB(3)" [<1CHR$(166)>] [<1CHR$( 

166) >] [<1CHR$ (166) >] [< 1CHR$ ( 1 66) >] [OC 

HR$(166)>] [<1CHR$(166)>] [<3CHR$(166)> 

) [<3CHR$(166)>) [<3CHR$(166)>] [<3CHR$(1 

66)>] [<1CHR$(166)>) (<1CHR$(166)>]" 

240 FORY=lTOl00:NEXTY, T 

245 REM *** SALTO PROGRAMMAZIONE SPRITES 
E CARATTERI *** 

250 PRINT"[<5CRSR D>][<1ARA>]WAIT ,PLEASE 
":G0T04310 

260 GOSUB471OrPRINT"[<1CLR>][<3CRSR D>][< 
1GRN>)";:POKE53272,28 
270 PRINTTAB(27)"@" 

280 PRINTTAB(12)"SPACE TRAVELLER" 

290 PRINTTAB(7)"[<2CRSR D>]BY GIULIANO PE 
RITORE ,1984" 

300 PRINT"[<4CRSR D>]HIT ' K ' FOR KEYBO 
ARD" 

310 PRINT" [OCRSR D>)HIT 1 FIRE ' FOR JOYST 
ICK (PORT 2) 

320 GETA$:JT=PEEK(56320):IFA$<>""0RJT<>1 2 

7THEN340 

330 GOTO320 

340 IFA$="K"THENTJ=1:GOTO370 
350 IFJT=111THENTJ=2:GOTO370 
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Seguito Spaee Traveller. 

360 GOTO320 

370 PRINT"[<1CLR>]"; 

380 FORT=0TO39:POKE1 02 4+T,66 :POKE55296+T, 
3 :POKEl 984+T,67 :POKE56256+T,3:NEXT 
390 FORT=0TO960STEP40:POKEl024+T,80:POKEl 
063+T,70:POKE55296+T,3:POKE55335+T,3 
400 NEXT 

410 PRINT"[<1H0ME>][<2CRSR D>][<4CRSR R>] 
[<1CRSR D>]YOUR COMMANDS ARE 


420 

PRINT" 

[<1CRSR 

D>] [< 3CRSR 

R>)SECTION 1 

,2 

SECTION 3 

I" 



430 

PRINT" 

( <1CRSR 

D>] [<3CRSR 

R> ) A 

= MOVE 

LEFT 

P 

= MOVE 

UP" 



440 

PRINT" 

(<1CRSR 

D> ] [ < 3CRSR 

R> ] D 

= MOVE 

RIGHT 

= MOVE 

DOWN" 



4 50 

PRINT" 

[ <1CRSR 

D> ] [< 3CRSR 

R> ] S 

= MOVE 

DOWN 

L 

= MOVE 

LEFT" 



460 

PRINT" 

[ <1CRSR 

D>] [<3CRSR 

R>] 



i 

= MOVE 

RIGHT" 



470 

PRINT" 

[< 3CRSR 

D>] [<6CRSR 

R>1 

OR J 

OYSTICK" 





480 

PRINT" 

( <1CRSR 

D> 1 [ < 4CRSR 

R> 1 

(YOU MUS 

T CONNECT 

IT IN PORT 2)" 



4 90 

PRINT" 

(<1CRSR 

D> ] [ < 3CRSR 

R>1 

PRESS AN 


Y KEY OR FIRE" 

495 X=1 50 :Y=140:POKE53269,4 

500 IFX>32ANDRND(1)<.4THENX=X-1:GOTO530 

510 IFY>58ANDRND(1)<.4THENY=Y-1:GOTO520 

520 IFX<247THENX=X+1:GOTO540 

530 IFY<221THENY=Y+1:GOTO540 

540 POKE53252,X:POKE53253,Y 

550 GETA$:IFA$<>""THEN580 

560 IFPEEK(56320)=111THEN580 

570 GOTO500. 

580 POKE53269,0 

900 REM *** INIZIO DELLA PARTITA *** 

3000 REM 

3010 POKE650,128:P=0:DIMA(3) 

3020 POKE53280,0:POKE53281 ,0 
3030 PRINT"[<1CLR>][<1CYN>]"; 

3035 REM *** PRIMO QUADRO *** 

3040 S=S+1:FORT=lTOl35:1=INT(RND(1)*1000) 

+ 1 02 4 :POKEl, 65 :POKE54 2 72 + 1, 1 4:NEXT 

3050 FI=0:RI = 1 50 :POKE53280,0 :POKE53281 ,0 

3060 GOSUB4270 

3070 D=1:L=1 

3080 IFL<0THEND=-D 

3090 IFL>39THEND=-D 

3100 L=L+D 

3110 POKEl 023+L,66 :POKE55296+L,1 
3120 POKEl023+L,74 
3130 IFTJ=2THENGOSUB3870:GOT03150 
3140 GETA$ 

3150 IFA$<>""THEN3170 
3160 GOTO3080 
3170 POKEl023+L,66 

31 80 FORT=l T075:IFTJ=2THENGOSUB3870 :GOT03 
200 

3190 GETA$ 

3200 IFA$<>""THEN3270 
3210 NEXT 

3220 POKEl 023+L,74 :L=L+40:POKEl 023+L,66:P 


OKE55295+L,3 

3230 IFL>950THENL=L-120 

3240 IFPEEK(L+1063)=64THEN3300 

3250 IFPEEK(L+l063)=65THEN4000 

3260 GOT03180 

3270 POKEl 02 3+L,74 :IFA$ = "A"THENL=L-1 

3280 POKEl 023+L,74 :IFA$="D"THENL=L+1 

3290 GOTO3220 

3300 IFL<360THENP=P+1 00 

3310 IFL>360ANDL<800THENP=P+500 

3320 IFL>800ANDL<1000THENP=P+1000 

3325 REM *** SALTO VISUALIZZAZIONE DEI PU 

NTI *** 

3330 GOSUB4080:GOSUB3930 

3335 REM *** SECONDO QUADRO *** 

3340 L=1424:S=S+1:FI=-1000000:RI=1 
3350 POKE53280,6 :POKE532 81 , 6:FORY=lTOl000 
:IFTJ=2THENGOSUB3870:GOTO3380 
3360 GETA$ 

3370 IFA$ = ""THENA$ =B$ 

3380 IFA$="A"THENL=L-1:IFL<1424THENL=L+1 
3390 IFA$°"D"THENL=L+1:IFL>1463THENL=L-1 
3400 POKEL,67:POKEL-40,81 :POKEL-41,81 :POK 
EL-39,81:POKE54272+L,1 
3410 REM *** METEORITI *** 

3420 N=RND(1):IFN<.4THENPRINTTAB(N*100)"[ 
<1G.3>][<1CHR$(197)>]":GOTO3440 
3430 A= INT(RND(1)*39) +1 :PRINTTAB (A)"[< 1YE 
L>1[<1CHR$(196)>]" 

3440 IFPEEK(L+40)=68THENGOT04000 
3450 IFPEEK(L+40)=69THENP=P+1 00 
3460 B$=A$:NEXTY 
3470 GOSUB4080 :GOSUB3930 
3480 PRINT"[<1CLR>]" 

3485 REM *** TERZO QUADRO *** 

34 90 G=67:S=S+1:A(0)=2 : A(1)=-80 : A(2)=-2: A 
(3)=80 

3500 POKE53280,6:POKE53281,6 

3510 F=73:C=74:D=1024:A=D+81 

3520 FORI=lT023:FORW=lT039:PRINT"(<1WHT>] 

(<1CHR$(201)>]";:NEXTW:PRINT:NEXTI 

3530 POKEA,67:POKE54272+A,3 

3540 J=INT(RND(1)*4):X=J 

3550 B=A+A(J):IFPEEK(B)=FTHENPOKEB,J+75:P 

OKEA+A(J)/2,C:A=B:GOTO3540 

3560 J= ( J+l ) *- ( J<3) : IFJOXTHEN3550 

3570 J= PEEK(A)-75 :IFJ<0THENJ=J+75 

3580 POKEA,C:IFJ<4THENA=A-A(J):GOTO3540 

3590 POKEl105,67:POKEl941,72:G=83:POKEl90 

0,74:POKE56213,7 

3600 PO=2 00+INT(RND(1 )*650)+1 024 :IFPEEK(P 
0+41)=73THEN3600 

3610 PO=PO+41 :POKEPO,71 :POKE54272+PO,10:L 
= 11 05 

3620 IFTJ=2THENGOSUB3800:GOTO3640 
3630 GETA$ 

3640 IFA$ = ""THENA$ =B$ 

3650 IFA$="P"THEND=-40:G=66:GOTO3720 
3660 IFA$="."THEND=40:G=67:GOTO3720 
3670 IFA$ = "L"THEND=-1 :G=80:G0T03720 
3680 IFA$=";"THEND=1:G=70:GOTO3720 
3690 POKE54272+L,15:POKEL,G:POKE54272+L,1 
5 

3700 POKEL,74 

3710 B$=A$:GOTO3620 

3720 M=M+1 :IFPEEK(L+D)=73THEN3690 

3730 IFPEEK(L+D)=72THEN3770 

3740 IFPEEK(L+D)=71THENP=P+4000 

3750 L=L+D 

3760 GOTO3690 

3770 Pi=13000-M*!0:P=P+P1 
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”Ma che tipo di attività 
svolgono quelli che comprano 
il Personal Computer IBM?” 




Il tecnico lo usa per L’Ufficio Oggetti Smarriti lo usa per 

registrare i suoi esperimenti. confrontare le cose perse 

con quelle ritrovate. 


Il negoziante di scarne lo usa 
per avere sempre urta scorta 
dei modelli più venduti. 



11 collezionista lo usa per Lo studente lo usa per 

classificare le sue piccole creature. migliorare il proprio rendimento. 


Il gestore della mensa lo usa 
per programmare menù, 
calorie e tutto il resto. 



Il generai manager lo usa per 
contattare enormi banche dati 



Il comico lo usa per pianificare 
i suoi numeri. 



L'orologiaio lo usa 
per rilassarsi con i videogiochi 


«O 

Il grafico lo usa 
per archiviare i suoi lavori. 



La segretaria lo usa 
per ricordare gli appuntamenti. 



L'oculista Io usa per 
controllare le vendite mensili. 




Il noleggiatore lo usa 
per calcolare i chilometraggi 


Il direttore d’azienda lo usa 
per spedire i suoi memo. 


II capovillaggio lo usa 
per gestire le prenotazioni 


L'agricoltore lo usa per 
migliorare la miscela del foraggio. 




L'impresario teatrale lo usa 
per il casting. 



L’editore lo usa 
per le sue edizioni. 



Il celebre direttore lo usa L’imprenditore lo usa 

per dirigere le sue royalties. per spiazzare la concorrenza. 



Il direttore delle terme lo usa L'assicuratore lo usa per calcolare 
per gestire l’archivio dei clienti più in fretta premi e pagamenti 


Quelli che comprano il Personal Computer 
IBM sono persone esattamente come te. Per¬ 
sone che non avrebbero mai pensato di diven¬ 
tare esperte di elaborazione. E quindi convin¬ 
te che non avrebbero mai potuto godere dei 
vantaggi dell’informatica. 

Ma un giorno hanno provato il Personal 
Computer IBM. E hanno cambiato idea: hanno 
scoperto cosa significa“facilità d’uso”. Nessu¬ 
no ha avuto bisogno di diventare un esperto di 


elaborazione. Perché è la macchina stessa che 
guida passo per passo in tutte le operazioni, 
con un metodo a prova di errore che ti consente 
di lavorare fin dall’inizio, con la sicurezza che i 
tuoi dati sono perfettamente protetti. 

E nessuno ha dovuto imparare a program¬ 
mare. Perché i programmi già pronti sono cen¬ 
tinaia e sono adatti a tutti i tipi di attività. 
Anche alla tua. 

Quelli che comprano il Personal Computer 






















Il capocentro lo usa per 
avere più tempo per idee luminose. 


Vagente di viaggi lo usa per La Befana lo usa per 

organizzare gli inclusive tour*, equilibrare domande, forniture e resi. 


Il professore lo usa 
per i suoi esami 






Il banchiere lo usa 
per le sue previsioni 



Lo spedizioniere lo usa per 
pianificare carichi e consegne. 



Il dentista lo usa per richiamare 
i pazienti al momento giusto. 



Il progettista lo usa per non 
perdere di vista i suoi progetti. 



Il meccanico lo usa per 
mettere sulla carta il suo lavoro. 


Il gestore d'alhergo lo usa 
per i conti dei clienti. 



Il capofficina lo usa 
por controllare i tempi. 



Il cuoco lo usa per ricordare Lo scienziato lo usa 

le ricette dopo averle provate. per le ricerche d'archivio. 




II disegnatore di modn lo usa 
per creare modelli E affari 


L'architetto lo usa per ridurre 
i tempi di progettazione. 

t . 

r 







Il governo lo usa per sgravare 
i suoi grandi computer. 


L'account junior lo usa 
per stupire l'account senior. 


II produttore lo uso 
per contenere I costi. 


L’impresario lo usa 
per pianificare le tournée. 


Il medico lo uso per avere a portata 
di mano l'anamnesi dei pazienti 






Il farmacista lo usa per ricordare II floricultore lo usa per registrare II direttore dello zoo lo usa per 
i 46.000 nomi delle medicine. gli esperimenti con gli ibridi calcolare le spese di riscaldamento. 


Il vigile del fuoco lo usa II ferroviere lo usa per programmare 
per le sue tristi statistiche. U trenino di suo figlio. 



IBM sono persone che con un investimento 
contenuto riescono ad essere all’avanguardia 
nel proprio lavoro. 

Qualunque siano le loro esigenze: organiz¬ 
zazione, amministrazione, pianificazione, in¬ 
formazione, entrate e uscite, gestione ecc. 

Perché non ci provi anche tu? Cerca nell’e¬ 
lenco della pagina seguente il concessionario 
IBM più vicino a te. Vai a trovarlo e spiegagli le 
tue esigenze. E’ la persona che fa per te. 


Per ricevere maggiori informazioni spedisci questo coupon a: 

IBM Italia Distribuzione Prodotti S.p.A. - Milano 2 
Palazzo Cellini - 20090 Segrate Milano 

Nome_ « 

Azienda--------- 

Indirizzo_ 

Telefono_ — 7 Ss 


TRAMP CHAHACTER UCENSED BY BCBBLES. INC.. S.A. GGK 






















Space Traveller 


Seguito Space Traveller. 

3780 GOSUB4080:GOSUB3930 
3790 GOTO3040 

3795 REM *** INTERROGAZIONE JOYSTICK *** 

3800 JW=PEEK(56320):REM * PORT2 

3810 IFJW=127THENA$="":RETURN 

3820 IFJW=126THENA$ = "P": RETURN 

3830 IFJW=12 5THENA? = ".": RETURN 

3840 IFJW=123THENA$="L": RETURN 

3850 IFJW=119THENA? = ";"! RETURN 

3860 RETURN 

3865 REM *** INTERROGAZIONE JOYSTICK *** 
3870 A$=B$:JW=PEEK(56320):REM * PORT2 
3880 IFJW=127ANDFI>0THENFORRT=lTORI:NEXTR 
T:A$="S”:RETURN 
3890 IFJW=123THENA$="A" 

3900 IFJW=119THENA$="D" 

3910 IFJW=111THENA$="S":FI=FI+1 
3915 IFJW=125THENA$="S" 

3920 B$=A$: RETURN 

3925 REM *** VISUALIZZAZIONE PUNTI *** 
3930 FORT=lTO200:NEXT:PRIUT"[<1CYN>][<1CL 
R>]SCORE ";P 

3940 PRINT"[<1CRSR D>]SECTION";S 

3950 PRINT"[<2CRSR D>]PRESS 'Fi' OR 'FIRE 

• Il 

3960 GOSUB8500 

3970 REM *** FINE PARTITA *** 

3980 PRINT"(<1CLR>)" 

3990 B$ = "":FI = 0: RETURN 
4000 GOSUB3930 

4010 PRINT"[<1CRSR D> )TRY AGAIN !" 

4020 PRINT"[<1CRSR D>1PRESS 'Fi ' OR ' F 
IRE ' TO PLAY AGAIN !" 

4030 IFP>RETHENRE=P 

4 04 0 PRINT"[<lHOME>)HIGH"; RE;" SCORE";P 

4050 GOSUB8500 

4060 S=0:P=0:GOT03030 

4070 REM *** SOMMA DEI PUNTI PREMIO *** 
4080 PRINT"[<1CLR>]":BP=100*(INT(RND(1)*1 
0)) :QW=PEEK(532 81 ) :POKE53280,7 :POKE53281 , 
7 



4090 P=P+BP:FORT=lTO20 

4100 FORN = lTOl0 :PRINT"[<1CRSR D>][<1CRSR 
R>]"; :NEXTN 

4110 PRINT"[<1RED>]BONUS ";BP;" POINTS" 
4120 PRINT"[<3CRSR D>)"TAB(10)"TOTAL POIN 
TS ";P;"[<1HOME>]" 

4130 FORR=1TO50:NEXTR 

4140 FORN=lTOl0:PRINT"[<1CRSR D>)(<1CRSR 
R> ]"; :NEXTN 

4150 PRINT"[<1BLU>]BONUS ";BP;" POINTS" 
4160 PRINT"[<3CRSR D>]"TAB(10)"TOTAL POIN 
TS ";P;"t<1HOME>]" 

4170 FORR=lTO50:NEXTR 

4180 FORN=1TOl0 :PRINT"[<1CRSR D>][<1CRSR 
R>]"; :NEXTN 

4190 PRINT"[<1GRN>]BONUS ";BP;" POINTS" 
4200 PRINT"(<3CRSR D>]"TAB(10)"TOTAL POIN 
TS ";P;"[<1HOME>]" 

4210 FORR=lTO50:NEXTR 

4220 IFINT (T/2) OT/2THENPOKE53272,21 :GOTO 
4240 

4230 POKE53272,28 
4240 NEXTT 
4250 POKE53272,28 

4260 POKE53280, QW:POKE532 81 ,QW: RETURN 
4270 PRINT"[<1GRN>)[<lHOME>][<7CRSR D>)"T 
AB(9)"[< 4CHR$(192)>]" 

4280 PRINT"(<1HOME>](<14CRSR D>]"TAB(20)" 
(<4CHR$(192)>]" 

4290 PRINT"[<1H0ME>](<24CRSR D>]"TAB(31)" 
[<4CHR$(192)>](<1WHT>]" 

4300 RETURN 

4305 REM ** PROGRAMMAZIONE CARATTERI SPEC 
IALI ** 

4310 PRINTCHRS(142) 

4320 POKE52,48:POKE56,48:CLR 
4 3 30 POKE56334,PEEK(56334)AND2 54 :POKEl,PE 
EK(1)AND251 

4333 FORI=0TO511;POKEI+l2288,PEEK(1+53248 
):NEXT 

4335 POKEl,PEEK(1)OR4:POKE56334,PEEK(5633 
4) ORI 

4340 FORT=l 2672T01 2672+79 
4350 READA:POKET,A:NEXT 
4360 FORT=l2288T012288+215 
4370 READA:POKET,A:NEXT 

4 380 DATAI 26,66,66,66,66,66, 126,0,8,24,40 
8 8 8 62 0 

4 390'DATAI 26,2,2,1 26,64,64,1 26,0,1 26,2,2, 
62,2,2,126,0 

4 4 00 DATA4,8,1 6,32,68,1 26,4,0,1 26,64,64,1 


bordo dello schermo, l'astronave 
viene stampata. 

3130-3290 - Vengono letti tastiera o 
joystick e la nave viene relativamen¬ 
te mossa. Nelle linee 3240-3250 vie¬ 
ne verificato se la nave ha sbattuto 
contro una stella o è atterrata. 
3300-3320 - Il punteggio viene 
aumentato in relazione alla base 
usata per l’atterraggio. 

3330 - Il programma salta alla som¬ 
ma e alla visualizzazione del bonus. 
3350 - Lo schermo passa in blu e 
viene iniziato il ciclo FOR per la 
stampa delle stesse e del carburante 
(1.000 linee). 


3360-3410 - Verifica del tasto pre¬ 
muto. 

3420-3430 - Stampa casuale del car¬ 
burante o delle stelle. 

3440-3450 - Verifica dello scontro 
con una stella o cattura del carbu¬ 
rante. 

3470 - Vedi linea 3330. 

3490-3580 - Formazione del labirin¬ 
to. 

3590 - Stampa dei caratteri dell’a¬ 
stronave, di un blank e dell’uscita. 
3600-3610 - Stampa casuale del car¬ 
burante. 

3620-3680 - Verifica della tastiera o 
del joystick. 


3690-3700 - Stampa e cancellazione 
dell’astronave. 

3720-3750 - Movimento della nave e 
verifica della cattura del carburante 
e del completamento del percorso. 
3770 - Aumento del punteggio in 
base al tempo perso nel labirinto. 
3780 - Vedi linea 3330. 

3790 - Ritorno al primo quadro. 
3795-3860 - Lettura del joystick. Il 
valore 56320 è per la porta 2. Se 
volete usare la porta 1 cambiatelo 
con 56321 e sommate a tutti i valori 
(127-123-119-111-125) il numero 
128. La variabile A$ viene imposta¬ 
ta in base ai comandi del giocatore e 
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“Ed ecco chi mi garantirà 
un’assistenza qualificata per il 
Personal Computer IBM.” 

Il Concessionario IBM. Un vero esperto di elaborazione dati che ti aiuta ad ottenere il massimo dal tuo Personal Computer 
IBM e ti garantisce un’assistenza puntuale e un sei-vizio efficiente e affidabile all’altezza del nome IBM. 



ABRUZZI 

L'Aquila I C O T IMPIANTI SRL - Via C Andreaui. 11 - Tel. 0862 315050 
Lanciano CS COMPUTER SYSTEMS SRL Vìa Rave. 29 
IVI 0872 23177 

Pescara ITALDATA SRL • Via Tiburtina, 75 ■ IVI 065 50843 
Teramo SEI.CO DATA SRL • Cao S. Giorgio, 21 - IVI 0861 53619 
Vasto DATAGRAPH SRL Corao Europa. 22 • IVI 0973 53515 
BASILICATA 

Matara I PE S SPA - Via Annunziatolla, 25 • Tel 0835 216742 
Polenta I PE.S SPA • Via Sanremo. 79 • Tel 0971 43293 

CALABRIA 

Catanzaro ■ VISICOM SRL Via XX Settembre. 62A/B/C • Tel 0961 24181 

Coaenza CALIÒ SRL Via N Serra. 90 Tel 0984 32807 

Ite Mio Calabria - SO.F.IN. SPA • Ma S Francesco da Paola. 109/D 

TYI 0965 25103 

CAMPANIA 

Avellino SATI INTERNATIONAL COMPUTER SRL 
Via TYgliamento, 41/A • Tel 0825 30789 

Benevento SIED INFORMATICA SRL Via Nicola Calandra. 3 
IVI 0824 54331 

Cava dei Tirreni ■ METELLIANA SPA ■ Via Mandoli. 16 - IVI. 089 463877 
Napoli 

C F ELETTRONICA PROFESSIONALE Via Luca Giordano. 40/42 • 

TYI OSI 241242 

DEVIL COMPUTER SYSTEM SRL Ma Punte di TYppia, 75 • 
ENGINEERING INFORMATICA SRL Ma Carducci. 15 TVI 081 402660 
INFORMATICA CAMPANIA SPA Via Orazio. 6/bts • Tel. 081 663292 
INFORMATICA MERIDIONALE SNC • Via P Cartellino. 179 - 
IVI 081 464022 

POINTER SISTEMI SRL Ma A De Disperi. 45 • IVI 081 312312 
Salerno • OMNIA SRL • C ao Garibaldi. 47 IVI 089.220366 
S.MariaCapuavetere GKNERALSYSTEMSSRL Vìa Unrtod'Itolia. 21/23 
Tel 0823.811100 

EMILIA/ROMAGNA 

Bologna 

ABACO INFORMATICA SAS Via Bernini. I - Tel 051.393274 

CMB INFORMATICA SCRL • Via Arcoveggio, 74/10 • TYI. 051 323594 

LUCKY SYSTEMS SRL • Via Farini. 33/A TYI 051 231569 

SIED SRL Male Silvani. 20 Tel 051.521605 

STUDIO T COMM. SRL Ma Marcenti. 50 • TYI 051.397660 

SYSDATA ITALIA SPA • Via Massimo d'Azeglio, 58 • TYI 051 330021 

Carpi 

DATA SRL Ma B Peruzri. 12 - TYI 059.688090 
IINIDATAX SRL Male N Biondo. 6 TYI 059 698355 
Faenza DATA SERVICE SRI. Ma Uderchi. 2 ■ TYI 0546 660300 
Ferrara MARKITALIA COMPUTERS SRL Mia Bologna. 84 
TYI 0532 96128 

Fidenza - RCM COMPUTER SAS ■ Ma Cornlni Malpeli. 11 TYI. 0524 81296 
Forlì 

C E DA F INFORMATICA SRL Via Zandtini. 57 • Tel 0543 65402 
I C O T. IMPIANTI SRL • VU Maaetti. 56 • Tel 0543 723014 
Imola PALAZZO DONATO & C. COMPUTERS SRL Ma EmilU. 23/A 
Tel 0542 29195 

l.ugo Ravenna DONATO PALAZZO k C COMPUTERS SRL 
VU Foro Boario, 79/81 TYI. 0545.21824 

Modena 

INTELCOM SRL VU della Cittadella. 51/63 • TYI. 059 223663 
MASETTI ELETTRONICA SRL • Corao Camalgrande. 14 • TYI 059 219801 
Parma 

DS DATA SYSTEMS SRL • Borgo Laiatta, 8 ■ TYI. 0521 208193 
PROGRAMMA NORD B SRL Viale Mentana. 104 IVI 0521 96960 
Piacenza • RCM COMPUTER SAS • C.ao Vittorio Emanuele II. 96 
TYI 0523 37656 

Ravenna - CELCOOPSCRL • Via S ('ovina. 7 - TYI 0544 462592 

Reggio Emilia 

ABAX INFORMATICA SCRL Via M K. Gandhi. I/D • Tel 0522 26941 
A PE D COMPUTER SRL Via Filippo Re. 17 - TYI 0522 38721 
POOL INFORMATICA SRL Vie Isonzo. 11/A • TYI. 0522 43745 
Rlmlni 

HARD & SOFT SYSTEMS SRL - Male Vallurio. 43 - Tel 0541 773343 
TRE EMME PI SPA • VU P Veroneae, 14/16 • Tel 0541 775153 
LAZIO 

Froalnone • SAIU ELETTRONICA SRL VU Tiburtina. 181/183 

TYI 0775.874093 

Roma 

BIT COMPUTERS SRL Via F. Satolli, 35/57/59 • Tel 06 6386140 

CRAMER ITALIA SPA • Ma C. Colombo. 134 Tel 06 517981 

DATAOKF1CE SPA - Via Sicilia. 205 - Tel 06.4754568 

ELEDRA 3S SPA • Via G Valmarana. 63 • TYI 06 S11015I 

EXPO SAS • Via 4 Novembre. 151 - TYI. 06 6794293 

GEDIN SRL • L.go D. De Dominici». 7 • TYI 06 432183 

I.S E D. SPA • Via Tiburtina. 1236 • Tel. 06 4125851 

ISI ITAL SISTEMI PER L'INFORMATICA SPA Prza SS Aportoli. 68 - 

TYI 06.6793477 

ITALSIEL SPA Ma TYvere. 26 - Tel 06 84311 

MEMORY COMPUTERS SRL • Via Aurelisna. 39 - TYI 06 4758366 

METRO LATINA SPA • Via Laurentina km 9 • VU lYr Pagnotta • 

LocaliU (Vcchignolctta ■ Tel 06 5012736 

MICROCOMP SPA - Vie M. Gelsomini, 28/30 • TYI 06.5759324 

N1CA DIFF INF SRL • Vie Paridi. 40 - Tel. 06.872603 

SAPES SRL • Vie Tito Livio. 12 - TYI 06.3453536 

SIPE OPTIMATION SPA Via Silvio D'Amico. 40 • Tel 06 5476 

SYS DATA ITALIA SPA Ma Cola di Rienzo. 265 • IVI 06 351417 

TEIJESIA SPA VU V. Brancati. 64 • TYI 06 5011551 

VALDE ADEL SRL P zza S Anastasia. 3 • TYI. 06 6786663 

Viterbo ITALBYTE SRL • Vie TYento • Pai Garbini - TYI 0761.221333 

LIGURIA 

Albenga SISTEX INFORMATICA SRL Viale d’ItalU. 60 • Tel 0182 50965 
Chlavarl • SISTEX SRL ■ Via A Millo. 85 - TYI 0185 309484 
Genova 

BENNATI SPA • Vu Polleri. 3 • IVI 010.206727 
DIFF EL. SRL • VU XX Settembre. 31/4 TYI 010.586238 
ELABORATION PROCESSES SRL • VU Brigato Lig . 68/70/72/74 - 
TYI. 010 565704 

SISTEX SRL - VU SS. GUeorno e Filippo. I3R - TYI. 010 873444 
La Spezia DIFF EL CESA SRL - Viale S. Bartolomeo^ 139 TYI. 0187.505223 
Sanremo DIFF EL RCS SRL VU Hrtainore. 8 • TYI 0184.72435 
Savona • SISTEX INFORMATICA SRL • Via Monlenotte. 100/102 • 

IVI 019.801638 
LOMBARDIA 

Albino • NUOVA INFORMATICA SAS - VU Rovinriale, 86 - Comenduno 
TYI. 035 751784 


Assago TRANSDATA SRL Mi Mori Pài E3 Str I - Tel 02 8242460 
Bergamo 

AMPLIFON SPA AMPLISYSTEM VU Quarenghi. 21 - TYI 035 232988 

SELTERINC SPA VU Verdi. 31 • TYI 035 248256 

SIRIO SHOP SRL • VU Angelo Maj. 16/b • TYI 035.223552 

Breno SELCAM SRL VU Mazzini. 92 - TYI 0364 21521 

Brescia 

FIN-ECO SERVICE SRL - VU Pastrengo, 5 - TYI 030 59055 
M1CROSELT SRL VU Cipro. 33 • IVI 030.224246 
SELTERINC, SPA Ma Cipro. 31 - Tel. 030.220391 
Bre«ao • CI S I SAS • V. Vittorio Veneto. Ili - TYI. 02.6105798 
Carugo - PENTA SRL • VU Garibaldi. 8/2 • TYI 031.763051 
Castellala BETA ELETTRONICA SRL • VU E Cantoni. 97/D - 
IVI 0331 503991 

Celano Boicone • METRO CEB SPA • Nuova Strada Vtgevaneee - 
Tel 02 4470141 

Ciniaello Balsamo METRO LOMBARDA SPA - VU Gozzano. 19 
Tel 02.61792 

Como BRUNO SRL • VU Rubini. 5 - Tel 031 260538 
Cremona 

FIN-ECO SERVICE SRL Pzza Marconi. 3 - TYI 0372 27209 
SELCEPAC SRL Ma Robolotti. 7 Tel 0372.38324 
Lecco ZECCA UFFICIO SPA Male Danto. 14 - TYI 0341 373291 
Lodi ZUCCHETTI SPA • C ao Roma. 123 - TYI 0371.52546 
Mantova 

ANTEK COMPUTER SAS VU Cavour. 69/7! - TYI 0376.329333 
REPLICA COMPUTER SRL • Galleria S Maurizio, 9 • Tel. 0376 368821 
Merata I e O INFORMATICA E ORGANIZZAZIONE SRL - 
PUzza Proietti. 31 • TYI. 039 593500 
Milano 

AG INFORMATICA SRL VU G Silva. 49 Tel 02 4983416 
AMPLIFON SPA AMPLISYSTEM • VU Ripamonti. 129 - TYI 02 53591 
AMPLIFON SPA AMPLISYSTEM • Corno Vercelli. Il - TYI. 02.4695570 
AMUFFICIO SAS • VU Desenzano. 7 ■ Tel. 02.4080275 

B. O.M. BUSINESS OFFICE MACHINES Vie TVmisia. 50 - TYI 02.6598076 
COMPUTER SHARING NORD SRL - Piazza S Maria Beltxade. 1 

Tel 02.860586 

C. R.S. ITALIA DIFFUSIONE SRL • C.ao Mooforto. 15 • Tel 02 780213 
CSA COMM SRL VU Fazini. 82 - TYI 02 6888433 

CTC GROUP SRL VU Danto. 14 - TYI 02 6573015 
DATAMONT I.S SPA VU Vaia trina. 22 - IVI 02.6333 7028 
DATA OPTIMATION SRL - Via Masaccio. 12 - TYI. 02 4987876 
EDELEKTRON SRL • C so Scorpione, 39 • TYI 02.3493603 
ELEDRA 38 SPA • Viale ElvezU. 18 1YI 02 349751 
GENERAL ELECTRIC INFORMATION SERVICES SPA • 

Vie Regina Giovanna. 29 - IVI. 02,287018! 

HOM1C PERSONAL COMPUTER SRI. - PUzza De Angeli. 3 • TYI 02.4988201 
HUGNOT Linci LUCIANO • VU De Togni. 10 - TYI 02 873190 
IL NUOVO UFFICIO SISTEMI SNC - VU Priv del Don. 2 • Tel 02 8350780 
ISTITUTO SUPERIORE D! INFORMATICA SRL • VU Montepulciano. Il 
TYI 02 6701779 

ITALSIEL SPA VU Poelezza. 12 - Tel. 02 3452270 
MICROTECH SRL - VU Fili Bronzetti. 20 - TYI 02.733609 
OEM SRL • C.ao Sempione. 8 • Tel. 02 3492136 
SIRIO SHOP SRL • Viale Certosa. 148 - TYI 02 3010051 
SOFTEC COMPUTER SRL VU Jenner. 23 ■ Tel 02 603721 
S D I STUDIO DI INFORMATICA SPA VU G Wìnckelmann. 1 - 
TYI 02.4227361 

TAG INFORMATICA SRL - VU Roaellini. 2 • IVI. 02.6080080 

TAG INFORMATICA SRL - Bastioni di Porto Nuova. 15 - Tel. 02.654820 

Monza 

EDICONSULT SRL • VU Rosmini. 3 - TYI. 039.389850 
ESI SRL - Via F. Cavallotti. Il - Tel 039.365038 

Paria • I T.C INFORMATICA SRL - Viale Montograppa - TYI. 0382 419300 
Rozzano COMPUTER ASSOCIATES SRL Palazzo Q/8 • Mi J^lori 
TYI. 02 8242151 

Saronno - DATA BASE SISTEMI SRL - Via Don Griffanti, 2 • 

Tel. 02 9622896 

Seregno - T.C. SISTEMA SRL - Corto del Popolo. 102 - TYI. 0362.223671 
Sondrio G.P.D. DOMENIGHINI SRL Vie N Sauro. 28 ■ TYI 0342 218561 
TYezrano sul Naviglio LA CENTRALE SERVIZI SPA - VU B Cellini. I 
TYI. 02.44574 I 

Varese 

ELMEC SPA VU Sebenko. 12 • Tel 0332.264135 
I R PE INF ELETTR. SRL - VU Moraizone. 8 TYI. 0332 238533 
VEGA SPA - VU Silvestro Sanvito. 103 - TYI. 0332 231555 
Vigevano LOGICA INFORMATICA SRL • VU Montograppa. 32 - 
TYI 0381.81888 

Vimercate. DATA PROGRES SRL - Via V Emanuele. 44/A - TYI 039.667423 
Vimodrone - OMEGA DATA SRI, - Strada Padana Sup. 317 -TYI 02.2504121 
MARCHE 

Alcoli Piceno - SIME DATA SRL • VU L Arioeto. 3/5/7 - TYI. 0376.64641 
Civitonova M. • S E ! SRL Via G D'Annunzio. 198 - Tel 0733 773262 
Fossombrone - SIPCOA COMPUTER SRL - VU Agoatini, 3 • 

IVI 0721.75340 

Jesi SYSTEM HOUSE A PR A SRL - Vie Cavallotti. 9 - TYI. 0731.58743 
Mole • S E D A SPA Pzza S. Maria • TYI 0731.70345 
Pesaro COMPUTER k OFFICE SRL VU Mazzini. 73 - TYI 0721.64170 
S. Benedetto delTYonto • DAVE ENGINEERING SRL VU DeGaipcri. 58 
TYI. 0735.86531 

Torrette - COMPUTER FIRM SRL • VU Flaminia. 280 - TYI 071.883712 
MOLISE 

Campobasso - PUBLISISTEM1 SRL - Pzza Repubblica. 9 -TYI. 0874.90534 
PIEMONTE 

Alba SISTEMI SRL ■ VU D Galimberti. 3/E • TYI 0173 49871 

Alessandria 

COMPUTER TEAM SRL VU Gramsci. 34 - TYI 0131.445817 
INFORMATICA SERVICE SRL Vu Isonzo. 63 - TYI 0131 445817 
Asti - HASTA DATI SNC • VU Silvio Morando. 6/A • TYI 0141 216356 
Biella 

TEOREMA SRL • VU Loaana. 9 - TYI. 015 24915 

VI P COMPUTERS SRL - VU Repubblica. 39 - TYI 015.27106 

Borgosesia I.D.S. INF. DATA SYST. SRL - Viale Varallo. 157 • 

TYI 0163.25327 

Cuneo - SISTEMI SRL - VU Giolitti, 26 - TYI. 0I7L55475 
Genola - EIJROSISTEM1 SPA - Bivio S S 20/28 - TYI 0172.68176 
Mondo* I • FI LEA SISTEMI SRL • Via Borsini. 3 - IVI 0174 47156 
Novara - ASA SRL - Corao Italia, 25 • TYI. 0321 28250 
Torino 

ABA ELETTRONICA VU Fossati, 5/C - Tel Oli 332065 
AMPLIFON SPA AMPLISYSTEM VU S Tommaso. 23 - TYI Oli 537091 
BELLUCCI BENEDETTO • VU Paparino, 24 - Tri 011.545086 
COMINFOR SISTEMI SAS • Corao Bernardino TYlcsvo. 4 - TYI 011.793007 


C R.S ITALIA DIFF1 ’SIONE SRL • Corso V. Emanuele. 1 - TYI 011 6504 747 
DIVERSIFICATE VENCO SRL Cao Matteotti, 32A Tel Oli 545525 
METRO PIEMONTE SPA VU P Veronese. 232 Tel 01! 2160161 
PROGRAMMA COMPUTERS SRL C so Svizzera. 185 - Tel Oli 746421 
SISTEMI SPA - C.ao Peschiera. 249 ■ TYI 011.3358676 
SOFTEC COMPUTERS SRL Via Juvarra. 24 Tel 011.535449 
Verbania (Intra) - S 80 SCRL - VU Roma, 7 • TYI 0323.41083 
Vercelli • ANALOG SNC - Via Dionieotti. 18 - Tel 0161 61105 
PUGLIE 
Bari 

COMPUTER SHARING SUD SPA - Via TYento. 3 - Tel 080.339177 

H S. SYSTEMS SRL - VU Caitromediano. 131 • TYI 060.331654 

PASED SRL VU CalefaU. 134/136 • Tel 060.481488 

S1RCOM SRL VU della Repubblica. 67/69 • Tel 080,364674 

SISMET SRL • Corao Cavour. 146/14» - Tel 080 540733 

F oggia - MASELLI PER L’UFFICIO - VU L Zuppetto. 355A -TYI 0881.78014 

Lecce -1 PE S SPA - VU Oberdan. 29 • TYI 0932 33904 

Maglie • S.V.I.C SRL • VU V Emanuele. 121 - TYI 0936.21604 

Taranto - ALF'A di SPORTELLI L. - Via Medaglie d'Oro. 39 - TYI. 099 335558 

SARDEGNA 

Cagliari 

C D S SARDA SRI. - VU 8. Lucifero. 65 - Tei. 070.656922 
DATA SISTEMI SRL • VU Lo Frano. 6/8 • TYI. 070 662541 
Olbia - C.P.8. SRL - VU Galvani. 4 • Tri 0789 51194 
SICILIA 
Catania 

ASIA COMPUTER SRL VU S EupilU. 13 - Tel. 095 326944 
COMPUTER SYSTEMS SRL Viale Ulisse, 12 - TYI 09:» 401122 
Messina • SO.F IN SPA • VU Don Blaaco. 75 • TYI 090 2923967 

Palermo 

ANGELO RANDAZZO SPA VU Ruggero Settimo, 53 - TYI 091.565133 

SER COM ITALIA SRL VU Liberto. 86 - TYI 091 266672 

SI PR EL SRL - VU Serradifalco, 145 • Tel 091.577344 

TESI SRL VU E. Notorbartolo. 23 - Tel 091 260549 

Siracusa - FY3RPEX SRI. - VU Favola, 6 • TYI 0931/68668 

TYapani ■ TESI SRL • VU Palmerio Abate. 2 - TYI 0923 20026 

TOSCANA 

Arezzo - F1NITAL FIN IT SPA • VU Benedetto Varchi. 59 - TYI 0575.353141 
Empoli • SESA DISTRIBUZIONE SRL - VU XI Febbraio. 24/B 
TYI 0571.711111 
Firenze 

DATA COOP SCRL - Via di Novoli, 23/H • TYI 055.4379869 
DISTAI. SRL • VU Paoni. 46 Tel 055.350669 

SESA DISTRIBUZIONE SRL • Lungarno FYrrocci. 19R - TYI. 055.6811653 
Groaseto • ELECTRONIC MARKET SRL - VU della Pace. 18/20 
TYI 0564 411090 

Livorno • AJCAR SRL • VU Entrilo Rossi. 5 - Tel 0586.36131 
Lucca LUCCHESE COMPUTERS SRL • Corao Garibaldi. 17/19 - 
TYI. 0583 42011 

Marina di Massa BIT BYTE SRL • VU Vittorio Ven.. 21 - TYI 0585.245496 
Pisa SDÌ ST. DI INFORMATICA SPA • Razza Toniolo. 3 - TYI 050 500004 
Pistola DARIO NANNINI • Corso Gramsci. 84 - TYI. 0573.32532 
Pontedera - PC. SYSTEM SRL - Via Sacco e Vanzctti. 30/31/32 - 
Tri 0587.56762 

Prato - CCS SAS - Viale Repubblica. 298 • Tel 0574 580222 

Siena • SILOG SRL - VU Sicilia. 5 • Beiverde Montoriggioni - TYI. 0577,54085 

TRE VENEZIE 

Altavilla Vicentino CENTRO INFORMATICA SRL • Via Verona. 40 
Tavernaio TYI 0444 980125 

Bassano del Grappa - STUDIO 1.& CSPA - Viale Diaz. 27 -TYI 0424.212541 
Belluno 

DE PRÀ SRI. Via ! Caffi, 18 - TYI 0437.23243 

SCP COMP SYST SRL VU Feltra. 244/A Tel 0437 20826 

Bolzano 

BOPAM SAS VU C. Battisti. 32 - Tri 0471 30113 

DATOR SRL • Via del Ronco. 13 • Tel 0471 934055 

Brunico • DATOR SRL • VU Campo TVirct. 6 - Tel 0474.84815 

Castelfranco Vcn. - EDS SRL - VU S. Pio X. 154 - TYI. 0423.490178 

Collegllano Veneto - EDS SRL • V.lc Italia. 132 - TYI. 0438,62345 

l.cgnago VECOMP SRL VU Duomo. 32 Tri 0442 27690 

Merano - COMPUTER MARKET RAS - VU S. Maria del Conforto, 22 

IVI 0473 36133 

Mestre 

COMPUTIME SRL • VU Milanese. 420 TYI 041.917542-984057 
ELETTRONICA SERVIZI SRL Corao del Pòpolo. 32/E 
TYI. 041 57812 

Mirano ELETTRONICA SERVIZI SRL • Via Bastia FYiori. 2/6 • 

TYI. 041.5057812 

Padova 

CERVED ENGINEERING SPA • Cso Stali Uniti. 14 Tel. 049 760733 
MASTER COMPUTERS SRL - Corso Milano. 22 • TYI 049 45933 
S I C. ITALIA SRL Vìa S. Retro. 82 • TYI 049 34984 
SYSTEM ROS SAS • Pzza De Caspen. 14 TYI 049.38412 
SO.GE.DA- SPA • VU Marsala. 29 • TYI 049.655385 
Portogruaro • INFOTEL SNC - Vie TYiesto, 17 - Tel 0421/71776 
Rovigo SISTEMI E INFORMATICA SRI. Viale Tre Martiri. 2 • 

Tel 0425 91056 

S. Dona di Piave COMPUTIME SRL • Razza Rizzo. 63 - Tel. 0421.2548 
Schio • LINEA 4 C.S.N.C. - VU Riva del Cristo, 4/6/8 • TYI 0445.28970 

Trento 

ATR DESIGN COLL SRL - Via Torre Verde. 25 • Tri 0451.26872 

SEDA SAS - VU Sighelc. 7/1 - TYI. 0461.9S4564 

SiGe SNC • COMPUTER SHOP VU Rato. 22 - Tri. 0461 25154 

Treviso 

DATUM SRL • VU S Bona Nuova. 3 A/C • TYI 0422 22560 
INFORMATICA TRE SRL - Viale della Repubblica. 19 Tel 0422 65993 
Trieste 

DITTA MURRI - Via A Diaz, 24/A - Tri. 040 733253 
SELTED SRL ■ VU Fabio Rizi. 23 TYI 040.61381 
Udine 

D.E-U. SRL • Via Di Ramperò. 3/7 - TYI. 0432 204402 
D E I) SRL - VU TYvagnacco. 89 - TYI 0432 482086 
Verona 

PRAGMA SOFTWARE SRL - VU Carmelitani Scalzi, 20 • Tel 045.596400 

SEVER SISTEMI S VU l/Dcatolli. 10 TYI 045 31331 

Vicenza ALF'A DATA SRL - VU Milano. 110 - Tri. 0444 31665 

UMBRIA 

Perugia 

PRISMA INFORMATICA SRL • Via Campo di Marte. 4N • TYI 075.71973 

PUCC1UFFICIO SNC - Via XX Settembre. 148/C • TYI 075 72992 

Terni - DPS SRL - VU Parinoti!. 6 - TYI. 0744 58247 

VALLE DI AOSTA 

Aosta INFORMATIQUE SAS 

Cantre Commercial l’Amerique. S S. 26 • Quart d'Aoato - TYI. 0165.765173 


Inoltre puoi rivolgerti anche a IBM Centromilano L. Corsia dei Servi, 11 - Tel. 02/782189, 
per acquisto, consulenza e servizi, e alle filiali IBM per acquisti superiori alle 20 unità. 


IBM Italia Distribuzione Prodotti S.p.A. 
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Space Traveller 


Seguito Space Traveller. 


26,2 

,2,126,0 


441 0 

DATAI 26,64,64,1 26,66,66,1 26,0,1 26,2, 

4,30 

,8,16,32,0 


4420 

DATAI 26,66,66,126,66,66,126,0,126,66 

,66, 

126,2,2,126,0 


4430 

DATA28,34,89,81,89,34,28,0 

,126,66,66 

, 1 26 

,66,66,66,0 


4440 

DATAI 26,66,66,126,66,66,126,0,126,64 

,64, 

64,64,64,126,0 


4450 

DATA124,66,66,66,66,66,124 

,0,126,64, 

64,1 

20,64,64,126,0 


4460 

DATAI 26,64,64,1 20,64,64,64 

,0,126,64, 

64,64,78,66,126,0 


4470 

DATA66,66,66,126,66,66,66, 

0,28,8,8,8 

,8,8 

,28,0 


4480 

DATA28,8,8,8,72,72,120,0,68,72,80,96 

,96, 

80,72,0 


4490 

DATA64,64,64,64,64,64,126, 

0,66,102,9 

0,66 

,66,66,66,0 


4500 

DATA66,98,82,74,70,66,66,0 

,126,66,66 

,66, 

66,66,126,0 


451 0 

DATAI 26,66,66,1 26,64,64,64 

,0,126,66, 

66,66,90,126,48,0 


4520 

DATAI 26,66,66,126,72,68,66 

,0,126,64, 

64,1 

26,2,2,126,0 


4530 

DATA62,8,8,8,8,8,8,0,66,66 

,66,66,66, 

66,1 

26,0 


4540 

DATA66,66,66,36,36,24,24,0 

,34,34,34, 

34,42,42,20,0 


4550 

DATA34,34,20,8,20,34,34,0, 

34,34,34,2 

0,8, 

8,8,0 


4560 

DATAI 26,2,4,60,16,32,126,0 


4570 

FORT=l 2800T01 2879 :READA:POKET,A :NEXT 

4580 

DATA0,99,99,99,127,127,28, 

127,0,9,78 

,52, 

31,121,20,52 


4590 

DATA0,8,28,62,8,28,127,73, 

0,73,127,2 

8,8, 

62,28,8 


4600 

DATA34,52,31,158,116,30,41 

,68,0,65,1 

19,54,62,28,62,42 


4610 

DATA0,96,36,54,127,54,36,96,0,127,73 

,93, 

119,93,73,127 



4620 DATA33,39,227,59,15,79,127,255,0,28, 
8,73,127,73,8,28,0 

4630 FORT=l2880TO1 2927 :POKET,0:NEXT 
4 63 5 READA:IFA=-1THEN4640 
4636 G0T04635 

4640 FORT=1 2928T01 294 3 :READA:POKET,A:NEXT 
4650 DATA-1,0,3,18,54,127,54,18,3,4,8,16, 
8,4,2,4,4,0,-2 

4660 FORT=1 2544T01 2551 :POKET,0:NEXT 
4670 FORT=12648T012655:POKET,0:NEXT:POKEl 
2651,126 

4680 READA:IFA=-2THEN4700 
4690 GOTO4680 
4700 GOTO260 

4705 REM ** PROGRAMMAZIONE SPRITES ** 

4 710 V= 53248 :POKEV+ 21,0 :POKE2042,1 3:POKE2 
041,14 

4720 READA:IFA=-3THEN4740 
4730 GOTO4720 

4740 FORN=0TO62:READA:POKE832+N,A:NEXT 
4750 READA:IFA=-4THEN4770 
4760 GOTO4750 

4770 FORN=0TO62:READA:POKE896+N,A:NEXT 
4780 DATA-3,0,56,0,0,56,0,0,56,0,1,255,0, 
1,255,0,1,239,0,15,199,224,15,255,224 
4 790 DATAI 5,225, 224,0,56,0,0,56,0,0,56,0, 
1,255,0,1,255,0,1,255,0,127,109,252 
4 800 DATAI 27,255,252,1 27,255,2 52,1 1 2,56,2 
8,112,56,28,112,56,28,-4 

4810 DATA0,0,0,238,238,224,170,136,128,23 
8,206,224,140,130,32,138,238,224,0,0,0 
4820 DATA0,0,0,63,135,128,63,135,128,24,3 
,0,24,3,0,30,3,0,30,3,0,24,3,0,24,3,0 
4830 DATA24,3,0,24,3,0,60,7,128,60,7,128, 
0,0,0 

4840 POKEV+4 0,1:POKEV+41 ,7 : RETURN 

8490 REM *** ROUTINE DI RICHIESTA DI PREM 

ERE UN TASTO PER CONTINUARE *** 

8500 V=53248 :POKEV+21,2 :POKEV+40,1:POKE53 
280,0:POKE53281,0 
8510 Y= 1 35 

8520 FORX=75T0255STEP2:GETA$:IFA$ = ""THEN 
8580 

8530 IFPEEK(56320)=111THEN8580 

854 0 POKEV+2,X:POKEV+3,Y:NEXT 

8550 F0RX=255T075STEP-2:GETA$:IFA$=""THE 

N8580 

8560 IFPEEK(56320)=111THEN8580 
8 570 POKEV+2,X :POKEV+3,Y:NEXT:GOT08 52 0 
8580 POKEV+21,0:RETURN 
9000 END 

9010 REM *** GIULIANO PERITORE ,1984 *** 


passa dopo il RETURN alla stessa 
routine di comando da tastiera. 
3870-3920 - Vedi 3795-3860. 
3930-3960 - Il computer fa un breve 
ritardo, pulisce lo schermo e stampa 
il punteggio. Da qui salta alla routi¬ 
ne di richiesta di premere FI o FIRE 
per continuare. 

3970-4060 - Stampa messaggi di 
sconfitta e del record. 

4030 - Verifica se si è superato il 
record: se sì, lo imposta con il nuovo 
punteggio. 

4070-4080 - Viene calcolato il bo¬ 
nus, viene letto l’attuale colore di 
schermo e poi viene colorato in gial¬ 
lo. 
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4090 - Viene sommato il bonus al 
punteggio totale. 

4100-4240 - Viene stampato per 20 
volte in colori diversi il bonus ed il 
punteggio. Contemporaneamente 
viene cambiato il set di caratteri. 
4250-4260 - Lo schermo viene colo¬ 
rato con il vecchio colore e i caratte¬ 
ri sono letti dalla RAM. 

4270-4300 - Stampa delle tre basi di 
atterraggio per il primo quadro. 
4320 - Vengono abbassati i puntato¬ 
ri di fine memoria. 

4330 - Vengono attivati i caratteri. 
4333 - I caratteri sono copiati dalla 
ROM alla RAM. 


4340-4700 - Lettura dei valori nelle 
righe data ed inserimento di questi 
nella nuova area dei caratteri. 

4710 - Vengono spenti tutti gli spri- 
te, e vengono settati i puntatori di 
sprite. 

4720-4830 - Vengono letti i valori ed 
inseriti nella memoria degli sprite. 
4840 - Vengono stabiliti i colori de¬ 
gli sprite. 

8490-9000 - Viene stampato uno 
sprite che oscilla da una parte all’al¬ 
tra dello schermo e viene contempo¬ 
raneamente verificato se è stato pre¬ 
muto FI o FIRE. Se questo è avve¬ 
nuto lo sprite è disattivato. 















Traveller 


VALORI DEI 
JOVSTICK 


• • • • 0 
• 0 i 0 

1 2 3 4 5 
6 7 8 9 


1 

Figura 1. Tabella dei bit relativi agli interruttori del 
joystick e dei piti usati da questi interruttori. 



F=FIRE 6+8 
R=DESTRft 4+8 
L=SINISTRR3+8 
n=ERSS0 2+8 
U=RLTO 1+8 


VALORE NORMALE 

/ +FIRE 

ALTO 

= 126 

110 

BASSO 

= 125 

1A9 

SINISTRA 

= 123 

107 

DESTRA 

= 119 

103 

CENTRO 

= 127 

111 

FIRE 

= 111 

111 

ALTO E DESTRA 

= 118 

102 

ALTO E SINISTRA 

= 122 

106 

BASSO E DESTRA 

= 117 

101 

BASSO E SINISTRA 

= 121 

105 

2 


Figura 2. Tabella dei valori della porta 2 in relazione 
alla posizione del joystick. La tabella è valida anche per 
la porta I. ma ogni valore deve essere maggiorato di 
128. 


Le porte giochi: come leggere 
i valori del joystick 

Se guardiamo sul lato destro del 
nostro CBM 64 noteremo sicura¬ 
mente due connettori a nove pin 
chiamati Control Port 1 e Control 
Port 2. 

1 valori del joystick si trovano nelle 
locazioni 56320 per la Control Port 

2 e 56321 per la Control Port 1. 
Prima di andare oltre precisiamo 


che i valori della porta 1 sono gli 
stessi della porta 2 ma aumentati di 
128. 

Il joystick è formato da cinque inter¬ 
ruttori che vengono azionati dalla 
leva che teniamo in mano. Analiz¬ 
zando la locazione 56320 (o la 
56321) noteremo che ogni switch 
corrisponde a uno dei cinque bit più 
bassi del byte. Muovendo il joystick 
noteremo anche che quando l’inter¬ 


ruttore è in stato di on il bit è posto a 
zero c quando l’interruttore è off il 
bit è posto ad uno. 

Lo switch del bit 1 è quello del joy¬ 
stick verso l’alto, quello del bit 2 
verso il basso, quello del bit 3 verso 
sinistra, quello del bit 4 verso destra 
e quello del bit 5 il fuoco (figura 1). 
Convertendo in decimale i valori ot¬ 
tenuti e sapendo che il bit è zero 
quando lo switch è on sottraendo a 


E IN EDICOLA 


Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 
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Space Traveller 

127 i valori dei bit otterremo i valori 
delle varie posizioni del joystick (fi¬ 
gura 2). 

Come costruirsi joystick e paddle 

Poco fa abbiamo detto che il joy¬ 
stick consiste in cinque interruttori 
che influiscono sui bit di alcune lo¬ 
cazioni della memoria del 64. 

Gli interruttori connettono al pin 8 
della control port uno o più dei pin 
1, 2, 3, 4 e 6. In questo modo vi 
potete costruire un piccolo tastieri- 
no a 5 tasti per avere con una spesa 
irrisoria le stesse funzioni di un joy¬ 
stick. 

Per realizzare questo semplicissimo 
apparecchio seguite lo schema della 
figura 3. Ricordatevi nella costru¬ 
zione di fare molta attenzione al col- 
legamento dei pin della control port. 
Le paddle a differenza dei joystick 
consistono in due potenziometri che 
variano i contenuti delle locazioni 
54297/54298.1 bottoni di fuoco del¬ 
le paddle agiscono come gli interrut¬ 
tori di spostamento laterale del joy¬ 
stick e avendo gli stessi collegamenti 
vanno letti nella locazione 56321. 

Il primo potenziometro (ricordatevi 
che entrambi devono essere da 470 
kQ) va connesso fra il pin 7 ed il pin 
5 mentre il secondo fra il pin 7 ed il 
pin 9.1 pulsanti di fuoco vanno con¬ 
nessi fra il pin 8 e il pin 4 il primo, 
mentre fra il pin 8 e il pin 3 il secon¬ 
do. 

Gli sprite 

Come è risaputo gli sprite sono 
dei blocchetti programmabili di 
grande aiuto nella stesura di giochi e 
programmi vari. Il 64 ne ha otto e 
per ognuno di questi è possibile defi¬ 
nire priorità sugli altri, colore e posi¬ 
zione. 

Uno sprite è formato da una griglia 
di 24 x 21 bit (figura 4) che vengono 
suddivisi in gruppi di otto. Quindi 
una volta disegnato lo sprite è con¬ 
vertito i numeri binari formati dai 
bit in decimali avrete i dati da inseri¬ 
re nel programma. 

Se un punto dello sprite deve essere 



acceso il bit corrispondente deve es¬ 
sere uguale ad 1. Per convertire un 
numero da binario a decimale basta 
sommare i valori corrispondenti ai 
bit uguali a uno così: 

128 64 32 16 8 4 2 I 
0 0 1 0 1 0 1 0 = 42 

Come creare uno sprite 

Anzitutto è necessario settare i 
puntatori degli sprite che sono con¬ 
tenuti nelle locazioni 2040-2047. Se 
questa operazione non viene effet¬ 
tuata non potremo comunicare al 
computer i valori degli sprite perché 
non saprebbe dove andarli a leggere. 
Esempio: un valore di 13 nel punta¬ 
tore indica al C 64 di leggere i dati 
dello sprite dalla locazione 832 in 
poi. 

Dopo questa operazione bisogna at¬ 
tivare lo sprite tramite la locazione 
53269 il cui valore è costituito da un 
numero binario con i bit uguali ad 1 
se lo sprite è attivato. Il colore dello 
sprite è modificabile tramite le loca¬ 
zioni 53287-53294. Uno sprite è an¬ 
che espandibile su entrambi le coor¬ 
dinate oppure su una delle due. L’e¬ 



spansione della coordinata x si ha 
nella locazione 53277 e quella della 
coordinata y nella locazione 53271. 
I valori da inserire in queste locazio¬ 
ni si calcolano come quelli della lo¬ 
cazione di attivazione degli sprite. 
Ogni sprite può essere mosso su en¬ 
trambe le coordinate contenute nel¬ 
le locazioni da 53248 a 53263. Però a 
questo punto sorge un problema: 
come è possibile spostare lo sprite 
oltre la coordinata 255 se questo è il 
massimo valore di una POKE? 

Per risolvere questo problema ci 
viene in aiuto la locazione 53264. Se 
il bit corrispondente allo sprite (vedi 
valori della locazione 53269) è 1 la 


ORIGLIR DI UN CRRRTTERE 


1 1 1 

2631 2631 2631 

342684213426842184263421 




Figura 4. 

Griglia di uno sprite. 
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AUT.M1N.CONC. 


INNOVAZIONE 


Corri all’edicola 
e vola in California. 

Compra Applicando: puoi vincere un viaggio a 
Silicon Volley - California. O un Apple Ile. 



Fra le pagine di Applicando ora in edicola trovi un biglietto, e forse 
è proprio quello vincente. Se lo è, buon viaggio! Ti aspetta infatti un 
fantastico soggiorno di 8 giorni in California passando per New York. 
Come rinundare al fosano della Big Apple, 
la grande mela? Poi, in volo verso 
l'altra costa: San 
Francisco. E 
mentre corri in\ 
tram su e giù 

per la città, pregusta la prossima tappa: si, Cupertino! Nella mitica 
Silicon Volley sarai accolto dallo sta ff Apple, e potrai vedere nascere 
i personal computer Apple. Se invece il tuo biglietto non è quello 
fortunato, niente paura: infatti puoi partecipare all'estrazione di 
un Apple Ile, il nuovo personal computer completo, compatto 
con grafica ad altissima risoluzione. Presto, corri in 

edicola, la California ti aspetta! 


Larivista 
peri 
computer 
Apple. 
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Space Traveller 

coordinata x dello spritesarà uguale 
alla coordinata data dal programma 
+ 255. Ecco quindi risolto il proble¬ 
ma. 

Vi è inoltre un’altra comoda loca¬ 
zione, la 53278 in cui vengono regi¬ 
strate le collisioni fra gli sprite sem¬ 
pre secondo il sistema dei bit. La 
locazione 53279 invece contiene le 
collisioni fra sprite e caratteri. 

I caratteri programmabili 

Il Commodore 64 ha la possibilità 
di spostare la mappa dei caratteri 
dalla ROM alla RAM consentendo 
così di creare altri caratteri oppure 
di sostituire quelli già esistenti con 
un set personale. 

Mettendo nella locazione 53727 un 
valore di 28 i caratteri saranno letti 
dalla locazione 12288 in poi. La 
ROM contenente i codici dei carat¬ 
teri invece inizia alla locazione 
53248. Il sistema per calcolare i va¬ 
lori è uguale a quello degli sprite 
solo che un carattere è una matrice 
di 8 x 8 punti. 

Ora che sappiamo tutte queste cose 
siamo in grado di copiare i caratteri 
della ROM nella RAM e questo si 


ottiene così: 

FOR A= 0 TO 511 : POKE A + 
12288, PEEK (A + 53248) : NEXT 

Ora se modifichiamo la locazione 
53272 i caratteri verranno letti dalla 
RAM. Per modificare i caratteri si 
può scrivere un programma con li¬ 
nee DATA contenenti tutti i valori e 
una routine che li legge e li scrive 
nella RAM (vedi linee 4305-4700 di 
Space Traveller). 

Provate ora a battere queste POKE: 

POKE 12288, 24 
POKE 12289, 60 
POKE12290, 102 
POKE12291, 126 
POKE 12292, 102 
POKE12293, 102 
POKE 12294, 102 
POKE12295, 0 

Ora se batterete il tasto con la chioc¬ 
ciolina anziché la chiocciolina verrà 
stampata una A. Ecco quindi il mo¬ 
do di trasformare i caratteri. 
Ricordate che anche se due caratteri 
trasformati sono uguali come ora le 
due A il 64 li riconosce lo stesso 
come una A ed una @. ■ 



Linea 

POKE X, Y 

Funzione 

100 

53272,21 

I caratteri vengono presi dalla ROM 

100 

53269,0 

Tutti gli sprite vengono spenti 

HO 

53280,0 

Il colore del bordo diventa nero 

no 

53281,0 

11 colore dello sfondo diventa nero 

260 

53272,28 

I caratteri vengono letti dalla RAM 

380 

1024.X 

Stampa dei caratteri sul video 

380 

55296,X 

Stampa dei colori sul video 

540 

53252,X 

Movimento sprite 

540 

53253.Y 

Movimento sprite 

3010 

650,128 

Repcat di tutti i caratteri 

4320 

52,48 

Abbassamento del valore di fine RAM 

4320 

56,48 

Abbassamento del valore di fine RAM 

4330 

56334,0 

Disattiva il timer di interruzione della tastiera 

4330 

1,51 

Attiva un carattere 

4333 

I2288.A 

Scrive nella RAM i valori dei nuovi caratteri 

4335 

1.55 

Attiva l’input/output 

4335 

56334,1 

Riattiva il timer di interruzione della tastiera 

4710 

2042,13 

Lo sprite 2 viene letto dal buffer di cassetta 

4710 

2043,14 

Lo sprite 3 viene letto dal buffer di cassetta 

4740 

832,X 

Stampa dei dati nel buffer di cassetta 

8500 

53288,1 

Colore sprite 2 

Nota: le POKE già citate 

non vengono più analizzate a meno che non abbiano 


un valore diverso e quindi svolgono altre funzioni. 

Figura 5 

Elenco delle POKE impiegate ne! programma. 


32 



















LA TIGRE È IN AGGUATO 




State cercando una stampante 
per il vostro micro: 


Deve essere facile da usare (manuale in 
italiano, selezione dei parametri da pannello e 
memorizzazione permanente). 


Deve essere multifunzione e permettervi di 
passare dalla qualità listing (180 cps.) alla qualità 
lettera per il trattamento testi. 

Deve essere facilmente interfacciahile ed im¬ 
mediatamente compatibile con il vostro micro... 
qualunque esso sia. 


Deve essere lo strumento per riprodurre in 
modo perfetto i vostri grafici. 


Deve essere molto affidabile, avere una 
probabilità ili guasto solo ogni 18 mesi ed es¬ 
sere ciononostante supportata da una rete na¬ 
zionale di assistenza postvendita. 

Deve far parte di una gamma completa 
e compatibile (80 - 132 colonne, grafica, colo¬ 
re, inserimento del foglio singolo manuale e 
automatico, caratteri scientifici c APL..,). 


Deve sempre inserirsi nei vostri limiti di SERIE SPG 8000 “PAPER TIGER” 

spesa e soddisfare le vostre esigenze odierne e 
future. 

Deve essere pensata, messa a punto, prodot¬ 
ta e commercializzata dal PIÙ GRANDE CO¬ 
STRUTTORE MONDIALE INDIPENDENTE DI 
STAMPANTI. 


tP Dataproducts 


LA VOSTRA SCELTA È FATTA 


DATAPRODUCTS s.r.l 

Via Vincenzo Monti, 8 - 20123 MILANO - Tel. 3452211-860347 















































COMPUTER 



CENTRO COMMERCIALE 
AMERICANO 

Via Gattamelata 5 20149 Milano 
Tel. 02M696451 Telex 330208 USlMC I 


Tutte le più sofisticate proposte 
della tecnologia americana nel 
settore dell’informatica 
“concentrate" in un’unica mostra, 
una mostra che specializzandosi 
ulteriormente di anno in anno, è 
giunta alla XIV edizione. 
Riproponendo un’iniziativa che già 
lo scorso anno è stata accolta con 
grande interesse dagli operatori del 
settore, un intero padiglione verrà 
dedicato esclusivamente al 
COMPUTER GRAPHICS ed alle sue 
applicazioni. 

In concomitanza con la mostra e 
quale momento di aggiornamento 
e approfondimento delle più attuali 
tematiche dell'Informatica, si 
terranno due seminari di studio: 

6-7 FEBBRAIO - in collaborazione 


con la CITIBANK N.A.: "Cinque 
tecnologie innovative per 
l’informatica e loro applicazioni: 
integrazione circuitale, optical disc, 
I/O voice, business graphics e 
linguaggi della quarta generazione". 
Coordinatore: Dr. Gianfranco Minati. 
Quota di partecipazione: 

Lire 200.000. 

8 FEBBRAIO: "La grafica nella 
realtà aziendale e industriale" 
Coordinatore: Ing. Roberto Favero. 
Quota di partecipazione: 

Lire 100.000. 

Per ulteriori informazioni sulla 
mostra e sulle modalità di 
partecipazione al seminario, 
contattare: CENTRO COMMERCIALE 
AMERICANO - TEL 02/4696451 - 
TELEX 330208 USlMC I. 
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entro l’avventura 


Parte prima 


Una guida 

per conoscere, giocare 
e scrivere un adventure 
per il vostro C 64 


di Roberto Tabacco 

T i trovi in una galleria fredda c 
umida; tutto è avvolto nel 
buio più profondo ... senti 
arrivare da lontano un rumore di 
acqua, forse una cascata ... - AC¬ 
CENDO LA LAMPADA - NON 
PUOI! Non hai la lampada con te! - 
... Ed a questo punto l’intrepido e 
paziente avventuriero riprende la 
sua ricerca per trovare la lampada 
che non è ancora in suo possesso. 
Da qualche parte, nascosta in una 
piccola nicchia, di chissà qualche 
delle tante gallerie, c’è la lampada. 
Bisogna trovarla se si vuole prose¬ 
guire l’avventura. Saresti capace di 
creare un’avventura così? Un’av¬ 
ventura piena di azione, suspcncc, 
una vera e grande avventura alla In¬ 
diana Jones l’eroe, per intenderci, 
della favolosa Arca Perduta. Gli 
Adventure Game sono forse tra i 
programmi più complessi clic esista¬ 
no. Nei paesi di lingua anglosasso¬ 
ne, poi, sono anche i più richiesti e 
popolari. Col loro fascino coinvol¬ 
gono il giocatore o i giocatori, sono 
giochi ideali per stare in compagnia 
di amici, così intensamente da di¬ 
menticare completamente che si sta 
dialogando tutto sommato con un 
computer. In Italia, solo oggi, si co¬ 
mincia a tentare di percorrere que¬ 
sta strada. Scrivere un Adventure 
non è infatti semplice, poiché oltre 
alla stesura del programma vero e 


proprio, bisogna soprattutto ideare 
l’avventura, la storia, i personaggi, 
le situazioni. Un lavoro pari a quello 
di uno scrittore di sceneggiature. 
Personalmente sono arrivato a scri¬ 
vere gli Adventure perché ho svolto 
diverse sceneggiature, e conosco, 
per averci lavorato, la tecnica della 
creazione di una storia cinemato¬ 
grafica; e un Adventure è tutto som¬ 
mato un soggetto cinematografico. 
Quello che cercherò di spiegare è 
appunto come si scrive e si gioca un 
Adeventure. 

Anche se siamo arrivati ultimi, sono 
certo che avremo tra non molto, ma¬ 
gnifici Adventure, anche grazie al¬ 
l’interessamento ed alla curiosità di 
chi vuole acquistare un gioco vera¬ 
mente valido e fuori dal comune dai 
soliti Arcade. Passo passo, percorre¬ 
remo insieme la strada per capire e 
realizzare un Adventure. 

Quando giochi ti trovi in un mondo 
fantastico, clic altri non è, che la 
stessa fantasia di chi lo ha scritto. 
Quindi, per chi gioca, è fondamen¬ 
tale cercare di capire un modo di 
pensare che potrebbe anche essere 


molto lontano dal proprio. È insom¬ 
ma necessario confrontarsi con 
un’altra intelligenza: quella di chi ha 
composto il gioco. 

L’autore sta creando una situazione 
e tenta di nasconderti qualcosa di 
molto importante per il gioco e tu 
devi scoprire dove egli ti sta ingan¬ 
nando. Una sorta di caccia al topo. 
La maggior parte degli Adventure è 
scritto in BASIC, che è il linguaggio 
più adatto per creare un gioco del 
genere. Il primo Adventure fu scrit¬ 
to in Fortran, un linguaggio tipico 
delle applicazioni scientifiche. Il 
BASIC, invece, grazie alla sua sem¬ 
plicità è di gran lunga il linguaggio 
più adatto. 

Bisogna ricordarsi che un Adven- 
turc non richiede velocità nell’esecu¬ 
zione del gioco, poiché la cosa più 
importante è la calma e la pazienza. 
Non bisogna correre, sparare, salta¬ 
re, schivare come accade negli Arca¬ 
de game, quelli per capirci essenzial¬ 
mente grafici dove tu guidi un omi¬ 
no e usi il joystick per i comandi. 
Negli Adventure è invece richiesta la 
riflessione per considerare gli avve- 
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Figura 1. La mappa del gioco, con te 15 stanze che costituiscono il 
luogo d’azione. 
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Dentro 
l’avventura 

riunenti che succedono e per supera¬ 
re i vari problemi o pericoli che ven¬ 
gono posti. Uno dei primi Adventu- 
re, scritto in America, richiedeva 
circa 300 Kbyte di memoria al com¬ 
puter che lo gestiva. Era soprattutto 
una camminata in un lungo e tor¬ 
tuoso labirinto dove i comandi base 
erano: GO North, GO West e altri 
comandi di direzione. Il passaggio ai 
microcomputer si deve soprattutto 
al mago degli Adventure, Scott 
Adams, che riuscì a scrivere final¬ 
mente un Adventure per il Radio 
Shack TRS-80. Fu un successo in¬ 
credibile! Adams introdusse poi, 
sempre nuovi comandi e nuove op¬ 
zioni di gioco, rendendo così il gene¬ 
re sempre più complesso, vario, ed 
incredibilmente suggestivo. 
Recentemente, sempre nei paesi di 
lingua anglosassone, è sorta la gran¬ 
de polemica su come deve essere un 
vero e proprio Adventure. Chi so¬ 
stiene che l’Adventure debba avere 
la grafica, e chi no. Allora, accanto 
alla grande casa produttrice di Ad¬ 
venture, la Infocom, la quale realiz¬ 
za programmi solo dialogati, sono 
sorte altre case che tentano la strada 
della grafica, come ad esempio la 
Melbourne House con il suo “The 
Hobbit”. Ce n’è per tutti i gusti ... 
come si vede. 

Personalmente, mi affianco alla ca¬ 
sa americana, perché ritengo che un 
vero Adventure debba essere essen¬ 
zialmente dialogato, in quanto, la 
fantasia dell’autore che lo crea, do¬ 
vrebbe essere più che sufficiente a 
creare la giusta atmosfera a illustra¬ 
re la situazione. Se la pagina grafica 
ha un suo fascino, oggi però ancora 
troppo fine a se stesso, la parola 
scritta può riuscire, se inserita al 
momento giusto, a creare molta più 
suggestione ed attenzione. Ad ogni 
modo, come ogni buona polemica, 
anche questa finirà per restare inso¬ 
luta e creare diverse fazioni di uten¬ 
ti. Vogliamo iniziare a illustrare in 
maniera, la più chiara e precisa, co¬ 
me si gioca e si realizza un Adventu¬ 
re dialogato? Prima di passare a di¬ 



gitare sul nostro computer il pro¬ 
gramma e prima ancora di ideare il 
flusso dello stesso, dobbiamo parti¬ 
re dalla penna e dalla carta. Dobbia¬ 
mo scrivere, annotare molte cose, 
molte idee, ritornando sempre da 
capo per cercare di perfezionare al 
massimo la nostra storia. 

Quindi si parte da una storia ... 
proprio, come ho già scritto prima, 
da una vera e propria sceneggiatura. 
Ma una sceneggiatura non si può 
scrivere senza avere almeno una pic¬ 
cola scaletta sempre a portata di ma¬ 
no ... La scaletta che intendo io, non 
ha niente a che fare, naturalmente, 
con una piccola scala. La scaletta è 
semplicemente una serie di annota¬ 
zioni scritte e numerate che illustra¬ 
no all’autore le fasi principali della 
storia che intende scrivere. Più 


gli spostamenti giusti e quelli errati, 
e collegare gli oggetti via via che va 
avanti con il suo gioco. Indicare se 
sono oggetti utili o no, indicare an¬ 
che come usare questi oggetti e 
quando usarli. Tutto questo, lo sco¬ 
prirà man mano che avanzerà sco¬ 
prendo così le carte che l’autore gli 
nasconde. 

Insomma, dovrà fare il processo in¬ 
verso dell’autore. Quindi prima di 
scrivere un Adventure, bisogna gio¬ 
carne alcuni per rendersi conto di 
quante e quali soluzioni ha ideato 
l’autore. Una volta che si è trovata la 
storia, scritta la scaletta, introdotti 
nella mappa gli oggetti e gli sposta¬ 
menti si può pensare a convertire 
tutto quanto in BASIC. Ho scelto, 
per chiarire i vari passaggi, una sto¬ 
ria molto semplice, ben lontana dai 


Lo stesso autore ha prodotto Alla ricerca dello Scarabeo d’Oro, un adventure in 
italiano per C 64 che metterà a dura prova la pazienza e l’astuzia di chi vorrà 
cimentarsi. Il gioco è distribuito dalla J.soft - Via Rosellini, 12-20124 Milano al 
prezzo di L. 48.000. 


avanti illustrerò con esempi questo 
particolare momento. 

Quindi dobbiamo creare una mappa 
che illustra dove il gioco si svolge. 
Una mappa che servirà all’autore 
per stabilire i vari movimenti, per 
ricordare dove sono i pericoli e dove 
gli oggetti da prendere e lasciare. 
Questa fase è molto importante e 
merita di dedicargli un po’ di tempo. 
Infatti, solo con una mappa precisa, 
possiamo avere l’idea esatta di come 
svolgerà l’intero gioco. Dopo aver 
creato la mappa, dobbiamo scegliere 
gli oggetti che serviranno al nostro 
eroe per la sua avventura. Ultima 
parte, la creazione delle Stanze dove 
si svolgerà il gioco. Le chiamerò per 
comodità sempre Stanze, ma questo 
non significa che il gioco si svolgerà 
sempre in una stanza. Un angolo 
della Foresta è sempre una stanza. 
Chiaramente chi gioca dovrà tenere 
conto di tutte queste particolarità. 

Dovrà creare man mano che 
avanza la mappa di gioco, segnare 


mega-adventure che si trovano in 
commercio. Un gioco che occupa 
poca memoria, ma che, nelle sue li¬ 
nee, illustra l’essenza di un Adven¬ 
ture. Svolgeremo il nostro gioco nel 
Far West, sperando vi piaccia l’am- 
bientazione. Al tempo dei pionieri, 
degli Indiani, della Frontiera da 
conquistare. Premetto che questo 
non è l’unico modo per programma¬ 
re un adventure, ma uno dei molti: 
ogni gioco ha delle sue particolari 
esigenze che richiedono da parte 
dell’autore sempre nuove soluzioni 
di programmazione. Partiamo! Lo 
scopo del gioco è quello di trovare e 
salvare la bambina di un vostro ami¬ 
co che è stata rapita da un gruppo 
ribelle di Indiani Sioux. Attenzione 
dovete liberare la bambina senza uc¬ 
cidere uno solo di quei “cattivi” in¬ 
diani! Costruiremo una semplice 
mappa di quindici luoghi o stanze. 
Inoltre porremo il “bianco cattivo” 
di turno. Un fuorilegge che deve 
portare agli indiani i fucili in cambio 
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Dentro 

l’avventura 


della bimba, che userà come ostag¬ 
gio. Come vedete vi sono così due 
situazioni e non una nel gioco. Pri¬ 
ma situazione: gli indiani da scova¬ 
re, bloccare e a cui portar via la 
bambina. Seconda situazione (che 
complica la vicenda) il fuorilegge da 
evitare che vuole la bambina. Chia¬ 
meremo il nostro eroe Nebraska 
John. Un tipo solitario e pieno di 
risorse e che soprattutto non si spa¬ 
venta di nulla. La vicenda è ambien¬ 
tata nel Colorado e spazia dalla pic¬ 
cola casa del nostro amico all’infuo- 
cato deserto. L’eroe guidato da noi 
dovrà percorrere gran parte del de¬ 
serto dove incontrerà pericoli di 
ogni sorta, come scorpioni, serpenti, 
sabbie mobili e così via. 

Stabiliamo prima di tutto i peri¬ 
coli che Nebraska incontrerà. Scor¬ 
pioni e serpenti sono un passo obbli¬ 
gato. Mettiamo anche un feroce 
condor che vola alto nel cielo. Gli 
scorpioni si possono uccidere con 
una pistola. Quindi dovremo loca¬ 
lizzare, da qualche parte, una pisto¬ 
la che Nebraska deve prendere. I 
serpenti si possono catturare con 
una rete di maglia molto fine. Ne¬ 
braska deve catturarli e non uccider¬ 
li perche dovrà darli ad un vecchio 
stregone in cambio di una informa¬ 
zione importante. Ma questo lo sap¬ 
piamo solo noi, è un segreto che 
colui che gioca non deve sapere, ma 
scoprire. Mettiamo anche da qual¬ 
che parte un pezzo di legno con so¬ 
pra scritto un messaggio. Il messag¬ 
gio ci servirà per scoprire che solo lo 
Stregone Indiano può rivelarci dove 
sono nascosti i Sioux ribelli con la 
bambina. Poniamo ancora un og¬ 
getto, una specie di erba allucinoge- 
na che ci servirà per inibire gli India¬ 
ni e farli addormentare e dare modo 
a Nebraska di portar via la bambi¬ 
na. I passaggi importanti per la vi¬ 
cenda sono stati così creati. Si pren¬ 
de la pistola per uccidere gli scorpio¬ 
ni, si prende la rete per catturare i 
serpenti, si prende l’erba per addor¬ 
mentare i Sioux e naturalmente il 
pezzo di legno con l’incisione che ci 
guida dallo Stregone al quale dare¬ 


mo i serpenti e lui ci darà le informa¬ 
zioni giuste. C’è ancora un partico¬ 
lare da inserire nella vicenda, ed è il 
fuorilegge. Siccome non vogliamo 
creare una storia con “morti”, ci 
occorre un altro oggetto che ci serva 
contro il fuorilegge. Ma questo lo 
troverete voi e lo inserirete voi nel 
gioco a vostro piacere. Numeriamo 
ora la mappa da 1 a 15. Tanti sono i 
luoghi di azione (vedere figura 1). Il 
gioco parte dal luogo n. 7 - che chia¬ 
meremo Casa del Boscaiolo. Diamo 
un’occhiata alla mappa. Intorno al¬ 
la stanza 7 si trovano le stanze: a 
Nord = 2-a, Est = 8-a Ovest = 6 ed a 
Sud 12. La 2 la 8 e la 12 indicano il 
deserto. La 6 invece presenta un pri¬ 
mo pericolo mortale: le sabbie mo¬ 
bili. Se Nebraska va ad Ovest cade 


Prendiamo la mappa e poniamo i 
pericoli col simbolo (?). In 2 mettia¬ 
mo i serpenti, in 9 gli scorpioni, in 5 
gli Indiani, in 13 il fuorilegge e in 1 lo 
Stregone. E, per finire, complichia¬ 
mo il tutto creando le entrate e le 
uscite delle varie stanze del gioco. 
Definiamo ora tutte le variabili che 
useremo nel gioco. 

CP = luogo, indica la posizione cor¬ 
rente. L2 = luogo 2, indica la nuova 
posizione. OG% = valore intero 
dell’oggetto da porre nella tabella 
del DIM. OG$ = il nome dell’ogget¬ 
to (sempre da porre nella tabella del 
DIM). LO$ = la lunga frase dell’og¬ 
getto che verrà posta dal computer 
nel luogo dove si deve trovare. 

D$ = Comando Principale. Il pro¬ 
gramma chiede “Cosa fai ora?”. 


99 REM MODULO H 1-flDVEMTURE-SELVAGGIO WEST- 

100 IFPCC6THENONPCGOT05000,5010,5020,5030,5040 
105 IFPCC11THEH0HPC-5GOTO5050,5060,5070,5080,5090 
1101FPC<16THEN0NPC-1ÒG0T05100,5110,5120,5130,5140 

Modulo 1. Queste istruzioni permettono di muoversi nelle varie stanze. 


nelle sabbie mobili ed il gioco si 
blocca e torna all’inizio. Sempre con 
la mappa sotto gli occhi noterete che 
abbiamo distribuito gli oggetti col 
simbolo ★. Nella stanza 8 si trova la 
pistola, nella 3 la rete, nella stanza 
10 il legno inciso e nella 15 l’erba 
allucinogena (ricordate però che chi 
gioca non lo sa). Cominciamo a por¬ 
re delle variabili. PS = Pistola - RE 
= Rete - LG = Legno - ER = Erba. 
Vi ricordo l’oggetto che inventerete 
voi per bloccare il fuorilegge a cui 
dovete assegnare una variabile: due 
semplici lettere, come sopra, che vi 
ricordino l’oggetto in questione. 

In totale gli oggetti sono 5 ora sce¬ 
gliete i verbi che devono essere usati 
per gli oggetti. Sparare per Sparo 
Pistola, Lanciare per Lancio Rete, 
Leggere per Leggo Legno, Bruciare 
per Brucio Erba, e naturalmente un 
verbo per l’oggetto scelto da voi 
contro il fuorilegge. A questo punto 
poniamo i vari pericoli o incontri. 


VR$ = indica il verbo da inserire 
SOS = indica il nome da inserire. 
Queste due ultime variabili si riferi¬ 
scono ai casi in cui vi è un comando 
con due parole. Esempio: Prendo 
(verbo) Pistola (nome). Se la situa¬ 
zione non si verifica, il computer da 
una risposta negativa. N = Nord S = 
Sud - 0 = Ovest - E = Est: queste 
variabili indicano i movimenti I = 
inventario: indica gli oggetti presi 
nel corso del gioco. 

Iniziamo ora a tradurre il nostro 
soggetto in un programma BASIC. 
Di seguito vengono presentati veri 
moduli di programma integrabili tra 
loro. 

Consideriamo il Modulo 1: movi¬ 
mento luoghi: potete printarlo, ma 
chiaramente non funzionerà anco¬ 
ra. Questo è un modulo molto im¬ 
portante per poter dare la possibilità 
a chi gioca di muoversi nei vari luo¬ 
ghi. Il Modulo inizia a 99 e termina a 
110. Abbiamo già detto che PC indi- 
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4999 REM-MODULO N 2-RDVEHTURE-SELVRGGI0 WEST 

5000 FRINT" aSTRHZR HI ■" 

5009 H=0: 0=0 :E=2•3=0 : GOTO152 

5010 FRINT" a STRNZR N 2 

5013 N=0 : 0=0 : E=0 ; S=0 ; GOTO152 

5020 FRINT" a STRNZR N 3 ■ " 

5029 N=0 : E=0: 3=0 : 0=0 : GOTO152 

5030 FRINT" a STRNZR N 4 ■" 

5039 H=0: 3=0 = E=0: 0=0 : GOTO152 

5040 FRINT" a STRNZR H 5 
5049 N=0 : 0=4 :E=0: 3=0 : GOTO152 

Modulo 2. La serie (li istruzioni limita i movimenti da una stanza 
all’altra soltanto alle direzioni consentite. 


300 REM MODULO N.3 RDVENTURE SELVAGGIO WEST 

302 IFDT="N"RNDH>0THEHC2=FC-5:GOTO90 

303 IFDf="S"RNDS>0THENC2=PC+5:GOTO90 

304 IFD$="0"RNDO>0THENC2=PC-1 : GOTO30 

305 IFD$="E"RNDE>0THENC2=PC+1 :GOTO90 

Modu lo 3. Queste linee del programma servono a riconoscere e sceglie¬ 
re i movimenti. 
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ca la Posizione Corrente. È anche la 
posizione di Start del gioco. Sia il 
luogo n. 7, lo Start del gioco. Se 
osserviamo la mappa di figura 1 ci 
rendiamo conto che abbiamo 5 ca¬ 
selle ogni fila, con un totale di 15 
caselle di gioco (caselle = luoghi). 

Useremo in questo caso l’istruzio¬ 
ne ON X GOTO. Vediamo come: la 
linea 105 serve per selezionare le pri¬ 
me cinque caselle o luoghi. Quindi 
se PC è minore di 6, viene eseguita la 
ON PC GOTO per iniziare a porre i 
numeri che indicano le istruzioni 
printate che, nel nostro caso, inizia¬ 
no a 5000. In 5000 si trova il primo 
luogo nel nostro gioco, esattamente 
il n. 1 nella mappa. In 5010 c’è il n. 2 
della mappa e così via: l’istruzione 
termina a 5040, ossia alla casella n. 
5. La riga successiva fa si che, se PC 
è minore di 11, venga eseguita ON 
PC-5 GOTO e inizi la serie di nuovi 
luoghi. Abbiamo dovuto togliere 5 
da PC per fare in modo che il pro¬ 
gramma vada avanti. La riga 110 
toglie invece 10 luoghi, quelli prece¬ 
denti, e ne aggiunge altri 5. Questa 
routine è quella che regola tutto il 
movimento del gioco. 

Cosa trova a 500 il programma? 
Trova l’inizio delle descrizioni dei 
luoghi: il luogo n. 1 si trova a 5000. 
Esaminiamo ora il Modulo n. 2. È 
ancora incompleto, e lo riempiremo 
più avanti dalle istruzioni mancanti. 
Da 5000 a 5040 abbiamo la prima 
serie di 5 luoghi, la parte superiore 


della mappa. Potete notare che ad 
esempio a 5009 vi sono alcune istru¬ 
zioni. Le variabili N O E S, che indi¬ 
cano i quattro punti cardinali, han¬ 
no assegnato un numero. In questo 
caso N = 0: S = 0: E = 2: O = 0. Se 
guardate la mappa, capirete senza 
problemi che l’unico movimento 
possibile in questo caso è quello di 
andare a Est (E), cioè nella casella n. 
2. Se poi chiediamo al programma 
di andare a Ovest o a Sud o a Nord, 
ci verrà data una risposta negativa 
Concludiamo questa prima parte 
con il Modulo 3, che istruisce il com¬ 
puter e gli da la possibilità di ricono¬ 
scere e scegliere i movimenti. Dalla 
linea 300 alla linea 305. Esaminia¬ 
mo, ad esempio, l’istruzione 302: 
IFD$ = “N” AND N >0 THEN C2 
= PC-5. Se PC = - 5 il programma si 
sposta a Nord, se è uguale a + 5; si 
sposta a Sud se vale + 1 ; ad Est e se è 
-1 ad Ovest. Infatti se la risposta che 
diamo a D$ è N (Nord) allora il 
luogo lungo L2 è uguale alla Posi¬ 
zione Corrente (PC) - 5 caselle e 
quindi il programma andrà nella ca¬ 
sella a Nord. E così per il resto. Se 
D$ = E (Est) e Est è maggiore di 0, 
allora il programma calcolerà la 
nuova posizione C2 che sarà uguale 
a quella corrente PC + 1. Se guarda¬ 
te la mappa vi sarà più chiaro. 
Nella prossima puntata continuere¬ 
mo a costruire il vostro Adventure. 
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m; emorizzazione 

_di immagini_ 


Archiviate le schermate 
del vostro Spectrum 

di Stefano Pavattello 

I l display file e l’area degli at¬ 
tributi, sono due particolari 
zone di memoria RAM dove 
sono conservati i dati relativi alle 
immagini che sono visualizzate sullo 
schermo. Nel display file è memoriz¬ 
zato il disegno o il testo “in bianco e 
nero”, ossia vi è indicato solamente 
lo stato di ogni pixel, che può essere 
acceso o spento; nella seconda zona, 
l’area degli attributi, sono invece 
conservati i dati relativi ai colori, 
alla luminosità e al|a stabilità o me¬ 
no (FLASH) di ogni posizione di 
stampa. 

Ovviamente, la mappa dello scher¬ 
mo varia continuamente man mano 
che cambiano le informazioni da in¬ 
viare all’utente tramite il video, e 
non è possibile riottenere una parti¬ 
colare immagine se non dando ogni 
volta al computer istruzioni relative 
alla formazione della stessa immagi¬ 
ne.^ 

È fortunatamente possibile im¬ 
mortalare un’immagine per poi po¬ 
terla richiamare a proprio piacimen¬ 
to quando occorre. 

In BASIC si può fare, ad esempio, 
registrandola su nastro mediante il 
comando SAVE “nome immagine” 
SCREENS, ma il procedimento per 
caricarla in memoria è abbastanza 
lungo, senza considerare che, una 
volta cancellata, per riottenerla bi¬ 
sogna nuovamente caricarla da na¬ 
stro. 

È ovvio che non è possibile sfruttare 
questo metodo per applicazioni 
continue. 

11 sistema migliore è indubbiamente 
quello di trasferire il contenuto del 


Listato 1. L’equivalente in BASIC delle due routine in linguaggio macchina. 

1 REM EStUIVftLENTE IN BASIC 

DELLE 2 ROUTINES IN 
LINGUAGGIO MACCHINA 

2 REM 

3 CLEAR 25662: STOP 

io rem salva Display /ile 
15 LET X=0 

20 FOR a =16364- TO 23296 
25 POKE 256&3-J-X..PEEK a 
30 LET X=X+1 
35 NEXT a 
4.0 STOP 

60 REM richiamo iiMfiagine 
SS CLS : LET X =0 
70 FOR a =25663 TO 32574- 
75 POKE 16364- *X , PEEK a 
80 LET X=X+1 
SS NEXT a 


display file e dell’area degli attributi 
in un’altra zona RAM che sia stabile 
e che non corra il rischio di venire 
accidentalmente cancellata o rovi¬ 
nata. 

Per ottenere ciò si possono seguire 
due vie: affidarsi al BASIC, oppure 
al linguaggio macchina. Premetto 
subito che in BASIC l’operazione è, 
per la maggior parte delle applica¬ 
zioni, troppo lenta. Per convincerse¬ 
ne si batta il listato 1 e lo si faccia 
girare; al primo STOP il programma 
si ferma per permettere all’utente di 
eseguire un disegno di prova e/o 
qualche stampa: poi battere GOTO 
10 ed attendere che l’immagine sia 
memorizzata dalla locazione 25663 
in poi. Il secondo STOP alla linea 50 
indicherà il termine di tale operazio¬ 
ne. A questo punto si batta CONTI¬ 
NUE per vedere l’immagine rifor¬ 
marsi sul video. Si noti che la somi¬ 
glianza con il caricamento da na¬ 
stro. 

Tuttavia l’immagine risiede sempre 
in memoria, e ne è molto più pratica 
la visualizzazione. 

Si noti come la procedura per il 


trasferimento sia semplice: dopo 
aver eseguito il disegno si trasferisce 
il contenuto del display file (median¬ 
te delle POKE) in un’altra zona 
RAM, e, quando l’immagine deve 
essere richiamata, si fa il procedi¬ 
mento inverso trasferendo idati me¬ 
morizzati al display file. 

La soluzione migliore consiste, co¬ 
munque, nell’affidarsi al linguaggio 
macchina notoriamente molto più 
veloce del BASIC. 

Listato 2 

Il listato 2 utilizza due routine in 
linguaggio macchina (LM) e, chi lo 
proverà, si convincerà di quanto ap¬ 
pena affermato: le immagini vengo¬ 
no memorizzate e richiamate ad una 
velocità praticamente istantanea. 
Purtroppo lo Spectrum da 16 Kbyte 
non si presta molto bene a questo 
tipo di applicazione, in quanto, oc¬ 
cupando un’immagine ben 6912 
byte, non è possibile memorizzarne 
più di una. 

Visto che la caratteristica principale 
del secondo programma è quella di 
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Listato 2. // programma principale. 

1 REM 

*********************** 

* CREAZIONE DI * 

* PAGINE UIDEO * 

* £>1984 by ; * 

* Stefano pavane ito * 

************** ** ******* 

2 REM 

4 CLERR 65367 . 

5 print "Uso tutta la RAM di & 
poni bile ? (S/TjJ INPUT LINE a 
$■ IF a$="S" THEN CLERR PEEK 237 
32+256+PEEK 23733 

l© print "Quante pagane video 
vuoi trasferire ? 

; INPUT n: IF n>0 THEN PRINT H: 
■30 T O 12 

11 CLS : GO TO 10 

12 GO SUB 700 

1S LET Cl=PEEK 23730+by*PEEK 2 
3731-d f *n-25 : LET n =H-1 _ 

17 IF Cli(PEEK 23635+by*PEEK 2 
3836)+2130 THEN BEEP .5,-2: PRIN 
T "TROPPA MEMORIA OCCUPATA.... 
"Non ci stanno ";n+i;" pagane va 
deo . ■* ; GO TO 10 

20 PRINT FLASH l;"ATTENZIONE : 
"'': print "Restano ";Cl-(PEEK 2 
3635+by *PE£K 23636);" bytes da B 
F23IC !" , 

25 input "Continuo o Ricominci 
o c c/r) "; LINE B$: IF a $ < > ** c " T 
HEN RUM 

4-0 POKE 23226, H: POKE 23297 , C l 
-by *INT (cl/by) : POKE 23298,INT 
C C l/by) 

50 CLERR Cl: GO SUB 700 

60 LET n =PEEK 23298: LET CUPE 
EK 23297+by*PEEK 23293 
100 LET a=0: LET CUCl+1: GO SU 
B 500 

no print "Pagina video n.**;a+i 
120 PRINT ''"Ri termine battere 
'GO TO 130'.": STOP 

130 POKE Cl+4,FN f()-by*INT (FN 
f()/by): POKE C1+5,INT (FN f ()/ 
by): LET r=USR Cl: LET a=a+l 
137 CLS : IF a<>n+l THEN PRINT 
" ok. . . .-ora la pagina n.";a+l: G 
O TO 120 

140 print "Fine immissione...**' 
"ora e' possibile cancellare il 


rilocarsi automaticamente a secon¬ 
da del numero di immagini che si 
vogliono memorizzare, è evidente 
che per il 16 Kbyte questo è un pro¬ 
gramma perfettamente inutile. 

In seguito sarà comunque presen¬ 
tato il metodo per utilizzare le due 
routine anche sullo Spectrum in ver¬ 
sione meno espansa. 

Giungiamo finalmente alla descri¬ 
zione del listato che gira esclusiva- 
mente sul 48 Kbyte. 

Il programma presentato permette 
di memorizzare fino a cinque pagine 
video contemporaneamente. All’i¬ 
nizio, dopo aver dato RUN, il com¬ 
puter chiede se si vuole utilizzare 
tutta la memoria disponibile (per¬ 
dendo così i caratteri definibili dal¬ 
l’utente) oppure se si vogliono la¬ 
sciare le cose così come stanno; poi 
viene richiesto il numero di pagine 
video che si vogliono memorizzare, 
dopodiché il computer informa l’u¬ 
tente di quanti byte di memoria ri¬ 
mangono liberi, dopo avere cancel¬ 
lato il programma con NEW. Infatti 
al termine della memorizzazione lo 
Spectrum fornisce le istruzioni ne¬ 
cessarie per riottenere ogni immagi¬ 
ne anche senza il programma base, 
che può essere cancellato senza peri¬ 
colo di perdere ciò che è memorizza¬ 
to e che è protetto dalla RAMTOP. 

Dopo la serie di INPUT prelimi¬ 
nari il programma si ferma per per¬ 
mettere all’operatore di disegnare 
ciò che vuole conservare, o di cari¬ 
carlo da nastro. Al termine, per me¬ 
morizzare il disegno, si deve battere 
il comando diretto GO TO 130. 
N.B.: si faccia attenzione, durante la 
composizione del disegno, a non fa¬ 
re uso di variabili già presenti nel 
programma onde evitare l’alterazio¬ 
ne del valore in esse contenuto. 

Lo stesso procedimento va ripetuto 
per ogni schermata che si vuole con¬ 
servare. 
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Memorizzazione 
__.di immagini 


Come già anticipato, il programma, 
al termine della memorizzazione, 
comunica la serie di operazioni ne¬ 
cessarie per riottenere ogni immagi¬ 
ne. 

Si fa presente che la linea 4 pone la 
RAMTOP alla locazione in cui nor¬ 
malmente si trova appena acceso lo 
Spectrum, così che il programma sia 
pronto per memorizzare le cinque 
pagine video; se qualcuno volesse 
utilizzare anche altre routine in lin¬ 
guaggio macchina, da inserire sopra 
le immagini memorizzate, dovrebbe 
caricare le sue routine per prime ab¬ 
bassando la RAMTOP di conse¬ 
guenza, poi caricare questo pro¬ 
gramma facendo attenzione che non 
vada in autostart (questo si può ot¬ 
tenere usando MERGE “ ” invece 
che LOAD “ ”), poi eliminare la 
linea 4 e dare finalmente RUN. In 
questo modo le pagine video, insie¬ 
me alle due routine, per memoriz¬ 
zarle e per richiamarle, verranno 
“stivate” al di sotto delle eventuali 
altre routine che si vogliono utilizza¬ 
re. 

Le variabili di sistema usate nel pro¬ 
gramma sono: 

• 23732; 23733 indirizzo dell’ultimo 
byte fisico della RAM; 

• 23730; 23731 indirizzo della RAM¬ 
TOP; 

• 23635; 23636 indirizzo del pro¬ 
gramma BASIC. 

Le due routine in linguaggio mac¬ 
china sono contenute nelle linee 540 
e 610 sotto forma di DATA. Il disas¬ 
semblato è in tabella 1. Il funziona¬ 
mento è molto semplice e, come no¬ 
terete, le due routine sono quasi 
identiche; vediamo la prima routine 
(cioè quella che trasferisce i dati dal 
display filettila memoria) in detta¬ 
glio: il registro HL ha la funzione di 
puntatore del display file; mentre 
DE viene utilizzato come puntatore 
della zona di memoria dove si vuole 
memorizzare l’immagine. Il valore 
che conterrà DE viene stabilito dal 
programma, in quanto varia a se¬ 
conda del numero di immagini che si 
vogliono memorizzare, quindi gli 
zero che sono “pokati”(neologismo!) 




inizialmente servono esclusivamen¬ 
te per “tenere il posto” ai valori che 
il programma calcolerà in seguito. Il 
registro BC invece contiene il nu¬ 
mero di byte che costituiscono ogni 
immagine, e cioè la lunghezza del 
display file più l’area degli attributi. 

II compito più importante viene 
svolto dal comando LDIR che signi¬ 
fica “load-increase and repeat”, 
cioè carica-incrementa e ripeti. La 
concisione di questo comando è 
enorme, infatti occupa solo due byte 
e svolge il seguente compito: carica 
nel byte puntato da DE (cioè il cui 
indirizzo è contenuto in DE) il valo¬ 
re del byte puntato da HL; incre¬ 
menta DE di 1 ; incrementa HL di 1 ; 
decrementa BC di 1 e ripete tutto 
finché BC = zero. 

In BASIC la routine sarebbe: 

10 LET HL = 16384: LET DE = 
indirizzo di memorizzazione 


20 LET BC = 6912 
30 POKE DE, PEEK HL 
40 LET HL = HL + 1: LET DE = 
DE + 1: LET BC = BC - 1 
50 IF BC > 0 THEN GO TO 30 
60 RETURN 

La routine ? è identica alla prima 
eccetto i valori iniziali di HL e di 
DE, che sono scambiati tra di loro 
per ottenere il funzionamento inver¬ 
so, ossia il trasferimento dei dati 
dalla zona di memoria, in cui sono 
stati precedentemente memorizzati, 
al display file (+ area attributi). 

Listato 3 

Come anticipato, passiamo ora 
alla descrizione del metodo per im¬ 
plementare le due routine anche sul¬ 
lo Spectrum da 16 Kbyte. 
Ovviamente il problema non è crea¬ 
to da queste (che occupano in totale 
solo 24 byte), bensì dalla lunghezza I 


Seguito listato 2. 


pr 09 
150 
11 e n e 
POKE 
150 
xby) : 
T (FN 
";cu 
170 
1S0 
500 


510 

520 

530 

54.0 

0 , 27 , 

570 


580 
590 
5S0 
610 
0.27 
515 
700 
TURN 
710 
1000 


raffina con 'WEU'. " 

FOR a=0 TO n; PRINT '“Per o 
re la pagina n. , *;a+i; ,i : 

‘ C l +13 ' 11 * • • ; 

PRIMT FN'fI)-by#IMT (FN PI) 
PRINT "POKE C L+14-J " , " ; XN 
f()/by): PRINT "LET r=U5R 
12: PRINT 
NEXT a 
STOP 

REM TRBSFERISC-E IL- CONTENU¬ 
TO DEL DISPLBY FILE IN 
RRM UTENTE. 

FOR X=Cl TO Cl+11 
READ b: POKE X,b 
NEXT X 

DBTfl 33,00,64-, 17,00,00,01,0 
237,176,201 

REM TRASFERISCE IL CONTENU¬ 
TO DELLO ROM UTENTE NEL 
DISPLOY FILE. 

FOR X-Cl+12 TO Cl+23 
RERD b: POKE X,b 
NEXT X 

DOTO 33,00,00,17,00,64-, 01,0 

237,176,201 

RETURN 

LET d f =6912: LET by=256: RE 

DEF FN fO=CL+25+6912*3 
soue "Pag. video" line i 
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Memorizzazione 
di immagini 


Listato 3. La versione per lo Specillati 16 Kbyte: 
si può memorizzare solo un’immagine. 


5 REM UERSIOME SPECTRUM 16K 
memorizzazione: di una 
so la immagine. 


10 CLERR 25662 

500 REM -...Display file -> ROM 
510 POR X =25663 TO 25674 
520 READ b: POKE X,b 
530 NEXT X 

54-0 DATA 33 , 00,64-, 17 / 37,100/01 . 
00,27 , 237,176,201 
570 REM . . . .RAM -> Display file 
530 POR X =25675 TO 25686 
520 RERD b: POKE X,b 
600 NEXT X 

610 DATA 33,37,100,17,00,64- ,01 . 
00,27,237., 176/201 


Tabella 1. Le routine in linguaggio macchina usate. 


Disassemblato delle routines 
LM usate. 


*** 

Rou tine 

video = > memoria *** 

LD 

HL, 

16384- 

: puntatore del 
display file. 

LD 

DE , 

X X X X 

.•puntatore della 
nuova area di me¬ 
moria dell'imma¬ 
gine. 

LD 

BC, 

6912 

.•Lunghezza area da 
trasferire (disp. 
fi te > . 

LD IR 

RET 


: load -increase- 
repeat. 

: Ri torno al BASIC, 


* * * 

Routine 

memoria = > video * * * 

LD 

HL, 

XX XX 

: pun ta tore della 
area di memoria 
dove risiede 
l ' immagine. 

LD 

DE, 

16384 

: pun ta to re del 
display file. 

LD 

BC, 

6912 

: Lunghezza area da 
trasferire (imma¬ 
gine in memoria). 

LD IR 

RET 


:Load -increase- 
repea t . 

: ritorno al BASIC, 


di ogni schermata consistente in ben 
6912 byte (cioè quasi 7 Kbyte). Co¬ 
me sappiamo il 16 Kbyte offre 0.5 
Kbyte a disposizione dell’utente nei 
quali è possibile inserire solo un’im¬ 
magine. 

In queste condizioni non si presen¬ 
tano quindi problemi particolari; 
sarà sufficiente usare le due routine 
anche senza nessun programma BA¬ 
SIC di supporto. 

Il programma (listato 3) è molto 
semplice e si occupa esclusivamente 
di inserire le due routine dalla loca¬ 
zione 25663 alla 25686; nelle 6912 
locazioni successive troverà posto 
l’immagine memorizzata, che termi¬ 
na alla locazione 32598 (a 32600 ini¬ 
zia l’area dei caratteri grafici defini¬ 
bili dall’utente, che pertanto sono 
normalmente utilizzabili). 

Usarlo è molto semplice: dare 
RUN; dopo pochi istanti il pro¬ 
gramma termina ed è possibile dise¬ 
gnare l’immagine; si batta RANDO- 
MIZE USR 25663 per memorizzar¬ 
la. 

Per riottenerla: RANDOMIZE 
USR 25675. 

Anche in questo caso al termine 
del programma è possibile cancella¬ 
re la parte in BASIC mediante il 
comando NEW. 

In condizioni normali rimangono 
cosi liberi 1907 byte. Chi volesse ri¬ 
sparmiare memoria al massimo, po¬ 
trebbe guadagnare altri 12 byte al¬ 
zando la RAMTOP fino a 25674 (si 
ottiene con CLEAR 25674); in que¬ 
sto modo si perde però la routine di 
memorizzazione dell'immagine che 
pertanto non potrà essere cambiata. 
Infatti, se la routine si conserva, si 
può in qualsiasi momento memoriz¬ 
zare una nuova immagine (che si 
sovrapporrà a quella vecchia cancel¬ 
landola). 

Chi volesse rilocare le due routine 
e l’immagine, tenga presente che 
l’indirizzo dell’inizio dell’immagine 
deve essere contenuto nel quinto e 
sesto byte della prima routine, e nel 
secondo e terzo byte della seconda, i 
quali attualmente contengono i va¬ 
lori 87 e 100. ■ 
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F rogger per C 64 


Guidiamo la rana 
attraverso il labirinto 
a caccia della mela 

di Luca Marras 

I l programma Frogger, come 
si può facilmente osservare, è 
redatto interamente in BA¬ 
SIC, e non contiene alcuna routine 
in linguaggio macchina. La velocità 
con cui si svolge l’azione è piuttosto 
elevata, la grafica è molto curata 
(sono stati utilizzati sia gli sprite.sia 


i caratteri programmabili), e altret¬ 
tanto si può dire per la parte sonora 
(il gioco è infatti sottolineato da una 
piacevole musichetta). Tutto questo 
è sufficiente, crediamo, a sfatare il 
mito che vuole relegare il BASIC a 
linguaggio di qualità secondaria, in¬ 
adatto alla programmazione di gio¬ 
chi divertenti e di buon livello. 
Come già dice il titolo, Frogger ha 
per protagonista un affamato ra¬ 
nocchio, il cui scopo è quello di rag¬ 
giungere una mela che, purtroppo 
per lui, ha il brutto vizio di cambiare 
spesso posizione all’interno del labi¬ 
rinto in cui è ambientato il gioco. 


Il nostro Frogger, nel cercare di 
raggiungerla, deve stare però molto 
attento, in quanto sbattere acciden¬ 
talmente contro le pareti del labirin¬ 
to è per lui fatale. In particolare si 
dovrà stare attenti nei livelli pari, 
dove lo schema è più complesso. 

Frogger è anche un tipo sportivo: 
deve muoversi continuamente, pena 
la morte. Se infatti lo lasciate fermo 
in un punto, prima diverrà viola, e 
poi, se non provvederete, perderà 
una vita (si parte con tre vite). 

Con tutte queste qualità, Frogger 
non poteva non avere una spasi¬ 
mante: miss Frogger (una rana tutta 


Listato 1. // programma Frogger. 

0 rem ********************* 

1 REM *** "FROGS" *** 

2 REM *** BY *** 

3 REM *** LUCA MARRAS *** 

4 REM ********************* 

9 POKE808,225 

90 DIMNH(ll),NL(11),SH(14),SL(14) 

100 DIMSCS(2,24) :GOSUB30000:GOSUB31 000 :GO 

SUB32000:GOSUB33000 

110 S=1024:T=55296 

400 DL=-1:SG=1:Q=0:ME=200:1 = 2 

410 GOSUB34000:POKE198,0 

420 GETAS:IFA$=""THEN450 

430 IFA$=""THENGOSUBl3000:GOT0400 

440 GOTO420 

450 TM=300 

500 PRINT"[<1CLR>][<1RVS>][<1CRSR D>]";: 
X= 32 :Y= 66 :POKEV,X:POKEV+1,Y:POKEV+2,100 :P 
OKEV+3,0 :XN = 0:YN=0 

505 POKEV+16,0:POKEV+39,5 :POKE204 0/ 1 3 : POR 
EV+21,7 

510 FORP=1T02 4 :PRINTSC$(1+DL,P);:NEXT:POK 
ES+999,CA(1+DL):POKET+999,CO(1+DL) 

515 POKEV+4,0 :POKEV+5,0 :P=PEEK(V+30) :P=PE 
EK(V+31) :PRINT"[ClRVS OFF>] [<1H0ME>] [< 1C 
YN>]SCORE"Q 

517 PRINT"[<1H0ME>][<1RVS>][<1RED>]"TAB( 
27)"LIVES"I:POKEW(1),0:POKEW(1),14:GOSUB3 
000 : POREI 98,0 

518 PRINT"(<1HOME>)[<1YEL>]"TAB(36)SG; 

520 TS = 0 : GETAS : POKE1 98,0 : IFA$O""THENG0SU 
B2000 

524 IFTS=1ANDFR>0THENFR=FR-2:IFFR<10THENP 
OKEV+39,5 

526 IFTS=0THENFR=FR+1:IFFR=1OTHENPOKEV+39 


,14 

528 IFFR=15THEN8000 
540 Ni=PEEK(V+30) 

545 IFNlAND!=1THEN7000 

550 N=PEEK(V+31)AND1 

555 IFN=1THEN8000 

560 IFMN=1THENMN=0:GOSUB2700 

570 TM=TM-1 :PRINT"[<lHOME>] (<1PUR>]"TAB(1 

3)"TIME [< 4CRSR L>]"TM 

580 IFTM=0THEN11000 

590 L= (TM+8) AND1 1 : POKEW ( 1 ) ,0:POKEFH(1) ,Ntt 
(L):POKEFL(1),NL(L):POKEW(1),33 
600 RN=INT(RND(1)*ME):IFRN=20THENGOSUB300 
0 

700 GOTO520 

1000 DATA0,24,0,32,60,4,112,126,14,32,126 
,4,32,60,4,32,24,4,49,255,40,29,231,184 
1010 DATA31,189,248,7,219,224,1,255,128,1 
,255,128,0,255,0,1,255,128,7,219,224 
1 020 DATAI 5,21 9,240,24,231 , 24,48,60,1 2,32 
,24,4,112,0,14,32,0,4 

1030 DATA0,0,80,0,1,164,0,5,80,0,4,64,0,4 
,48,3,196,252,7,179,252,15,239,127 
1040 DATA63,251,127,63,255,252,63,255,252 
,63,191,252,15,253,252,15,255,252 
1 050 DATAI 5,2 55,2 36,1 1 , 1 75,1 76,14,1 91 ,24 0 
,3,254,240,0,255,128,0,243,192,0,195,0 
1060 DATA0,0,0,16,0,8,8,0,16,4,0,32,2,126 
,64,1,255,128,1,255,128,3,255,192 
1070 DATA3,153,192,1,255,128,1,255,128,0, 
255,0,0,255,0,0,231,0,1,90,128,2,60,64 
1080 DATA4,0,32,8,0,16,16,0,8,0,0,0,0,0,0 
1100 DATA"[<1ARA>][<40CHR$(215)>]" 

1110 DATA"(<1CHR$(215)>][<3CRSR R>](<1CHR 
$(215)>] [< 20CRSR R>] (<1CHR$(215)>] [<13CRS 
R R>][<1CHR$(215)>]"1120 DATA"[<1CHR$(215 
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Frogger 
per C 64 


rossa) lo segue dovunque egli vada, 
c se non state attenti, il vostro Frog- 
ger finirà nelle mani della rana. 

Ogni livello dura 300 secondi (che 
però non hanno la stessa durata dei 
secondi reali). Se alla fine di questo 
tempo sarete ancora vivi (il che non 
è molto facile ...) passerete al livello 
successivo, e lo schema del labirinto 
cambierà. Il bonus tra un livello e 
l’altro può essere, casualmente, di 
250 o 1.000 punti. Il gioco non pre¬ 
vede vite extra. Ad ogni livello suc¬ 
cessivo, la mela si sposterà più fre¬ 
quentemente. 

Molto utile vi potrà essere il “tele¬ 


trasportatore” che si trova ai due 
lati dello schermo. 

Per giocare, si utilizzano i seguenti 
tasti: 

Z = sinistra; 

C = destra; 

@ = alto; 

/ = basso. 

Se il vostro punteggio sarà compre¬ 
so fra i dieci più alti, il vostro nome 
sarà registrato nella classifica dei 
primi. 

Essa può essere visualizzata pre¬ 
mendo il tasto F3 durante lo scher¬ 
mo di presentazione. Lampeggerà 
l’ultimo record registrato dal pro¬ 


gramma. 

Struttura del programma 

9 - Disinserisce il tasto RUN STOP. 
Per reinserirlo, basterà cancellare 
questa linea. 

90 - 110 - Vengono eseguite una sola 
volta dopo il RUN, e servono a crea¬ 
re la grafica, il sonoro e a leggere i 
DATA. 

400 - 440 - Mandano alla subroutine 
che crea lo schermo di presentazio¬ 
ne. 

450 - Viene eseguita all’inizio di ogni 
livello. Inizializza la variabile TM, 


)>] [<3CRSR R> ] [<1CHR$(215)>) [<20CRSR R>] [ 
<1CHR$(215)>](<13CRSR R>][<1CHR$(215)>]"1 
130 DATA"[<1CHR$(215)>][<3CRSR R>][<1CHR$ 
(215)>] [<20CRSR R>] [<1CHR$(215)>] [<13CRSR 
R>][<1CHR$(215)>]"1140 DATA"[<1CHR$(215) 
>] [<7CRSR R>] [<1CHR$(215)>] [<6CRSR R>] (<7 
CHR$ (21 5) >1 (< 3CRSR R>] [<1CHR$ (21 5) >] (OCR 
SR R>][<2CHR$(215)>][<4CRSR R>](<1CHR$(21 
5) >] [OCRSR R>] [<1CHR$ (21 5) >] "1 1 50 DATA" ( 
<1CHR$(215)>] (<7CRSR R>] (<1CHR$(215)>] [<6 
CRSR R>][<1CHR$(215)>][C14CRSR R>][<1CHR$ 
(21 5) >] [OCRSR R>] [<1CHR$ (21 5) >] (OCRSR R 
>][<1CHR$(215)>]"1160 DATA"(<1CHR$(215)>) 
[OCRSR R>] [<1CHR$ (21 5) >] [OCRSR R>1(<1CH 
R$(215)>][<14CRSR R>)[<1CHR$(215)>)[<4CRS 
R R>] [<1CHR$(21 5) >] [OCRSR R>)[<1CHR$(215 
)>]•’ 1170 DATA" [<1CHR$ (207) >] [OCRSR R>)[< 
8CHRS (21 5) >] [< 1 7CRSR R>] [<7CHR$ (21 5) >] [O 
CRSR R>] [<1CHR$ (208) >] "1 1 90 DATA" K25CRSR 
R>] [<1CHR$(215)>] [<14CRSR R> ] " 

1 200 DATA" K25CRSR R> ] [ < 1 CHR$ ( 21 5) > ] [ < 1 4C 
RSR R>]" 

1210 DATA"[<15CRSR R>][<6CHR$(215)>)[<4CR 
SR R>][<1CHR$(215)>][<14CRSR R>]" 

1 220 DATA" [<1CHR$ (204) >] [OCRSR R>][<1CHR 
$ (21 5) >] [OCRSR R> ] [<1CHR$ (21 5) >] [OCRSR 
R>][<1CHR$(215)>][<19CRSR R>][<1CHR$(215) 
>] [OCRSR R>] [<1CHR$ (1 86) >] "1 230 DATA"[<1 
CHR$ (21 5) >] [OCRSR R>] [<1CHR$ (21 5) >] [OCR 
SR R>] [<1CHR$(215)>] [<6CRSR R>] [<1CHR$(21 
5) >) [<1 9CRSR R>] [<1CHR$ (21 5) >] [OCRSR R>] 
[<1CHR$(215)>)"1240 DATA"[<1CHR$(215)>][< 
3CRSR R>] [<1CHR$ (21 5) >] [OCRSR R>)[<1CHR$ 
(215)>] [<6CRSR R>] [<1CHR$(215)>] [<15CRSR 
R>1 [<1CHR$(215)>] [< 3CRSR R>] [<1CHR$(215)> 

) [OCRSR R>] [<1CHR$ (21 5) >] "1 250 DATA" [OC 


HR$ (21 5) >] [OCRSR R>] [<1CHR$ (21 5) >] [OCRS 
R R>] [<1CHR$ (21 5) >] [OCRSR R> ] [ < 1 CHR$ ( 21 5 
) >) [< 1 5CRSR R>] [<1CHR$ (21 5) >] [OCRSR R> ] ( 
<1CHR$ (21 5) >] [OCRSR R>] [<1CHR$ (21 5) >] "1 2 
60 DATA" [<1CHR$ (21 5) >] [OCRSR R>][<4CHR$( 
21 5) >] [OCRSR R>] [OCHRS (21 5) >] [OCRSR R> 
] [<8CHR$(215)>] [<3CRSR R>] [<1CHR$(215)>] [ 
OCRSR R>)[<1CHR$(215)>]"1270 DATA"[<1CHR 
$ (21 5) >] [< 34CRSR R> ] [<1CHR$ (21 5) >] [OCRSR 
R>][<1CHR$(215)>]"1280 DATA"[<1CHR$(215) 
>] [04CRSR R>] [<1CHR$ (21 5) >) [OCRSR R>][< 
1CHR$ (21 5) >] "1 290 DATA" [ < 1CHR$ ( 21 5) >] [ OC 
RSR R>] [<1CHR$ (21 5) >] [OOCRSR R>] [<1CHR$ ( 
21 5) >] [OCRSR R>][<1CHR$(215)>]"1300 DATA 
"[<1CHR$(21 5) >) [<3CRSR R>] [<7CHR$(215)>] [ 
<5CRSR R>] [<1CHR$ (21 5) >] [OCRSR R>][<12CH 
R$ (21 5) >] [OCRSR R>] [<1CHR$ (21 5) >] "1 31 0 D 
ATA"[<1CHR$(215)>)[<15CRSR R>][<1CHR$(215 
)>] [< 22CRSR R>] [<1CHR$(215)>]" 

1320 DATA"[<1CHR$(215)>)[<15CRSR R>][<1CH 
R$ (215)>] [<22CRSR R>] [<1CHR$(215)>]" 

1330 DATA"[<1CHR$(215)>][<15CRSR R>][<1CH 
R$(215)>] [< 22CRSR R>] [<1CHR$(215)>)" 

1340 DATA" [09CHR5 (21 5) >) " 

1350 DATA215,8 

1500 DATA"[<1BLU>][<40CHR$(214)>]" 

1510 DATA" [<1CHR$ (21 4) >] [OCRSR R>][<1CHR 
$(214)>)[<34CRSR R>][<1CHR$(214)>]" 

1 520 DATA" [<1CHR$ (21 4) >] [OCRSR R>][<1CHR 
$(214)>][<34CRSR R>)[<1CHR$(214)>)" 

1 530 DATA" [<1CHR$ (21 4) >] (OCRSR R>)[<1CHR 
$(214)>][<34CRSR R>] [<1CHR$(21 4)>]" 

1 540 DATA" [<1CHR$ (21 4) >) [OCRSR R>)[<2CHR 
$ (21 4) >] [OCRSR R>] [<5CHR$ (21 4) >] [OCRSR 
R>) [<9CHR$(214) >] [OCRSR R>) [<7CHR$ (21 4) > 
] [OCRSR R>] [<1CHR$ (21 4) >) "1 550 DATA"[<1C 
HR$ (21 4) >) [< 1 2CRSR R>] [<1CHR$ (21 4) >) [OCR 
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Frogcer 
per C 64 


Seguito listato Frogger. 

SR R>][<1CHR$(214)>][<17CRSR R>][<1CHR$(2 
1 4)>] [<3CRSR R>] [<1CHR$ (21 4) >] "1 560 DATA" 
[<1CHR$(21 4)>] [<12CRSR R>] [<1CHR$(214)>] [ 
< 3CRSR R>] [<1CHR$(214)>] (<17CRSR R>][<1CH 
R$(214)>1[<3CRSR R>][<1CHR$(214)>]"1570 D 
ATA"(<1CHR$(207)>][<12CRSR R>][ClCHRS(214 
)>] (<3CRSR R>)[<1CHR$(214)>][<17CRSR R>][ 
<1CHR$(21 4)>] (< 3CRSR R>] [<1CHR$(208)>]"15 
80 DATA"[< 5CRSR R>] [< 3CHRS( 21 4) >] [< 5CRSR 
R>] [<1 CHR$(21 4)>] [< 3CRSR R>] [<15CHR$(214) 
>] (<3CRSR R>] [<1CHR$(214)>] [< 4CRSR R>]"15 
90 DATA"[<7CRSR R> ] [<1CHR$(214)>] [<3CRSR 
R>] [<3CHR$(214)>] (<3CRSR R>] (<1CHR$(214)> 
](<17CRSR R>) [<1CHR$(214)>) [<4CRSR R>]"16 
00 DATA" [<7CRSR R> ]•(< 1CHR$ ( 21 4) >) [< 5CRSR 
R>) [<1CHR$(21 4)>) [<3CRSR R>) (<1CHR$(214)> 
] [<17CRSR R> ] [<1CHR$(214)>) (<4CRSR R>]"16 
10 DATA"[<1CHR$(204)>][<6CRSR R>](<1CHR$( 
214)>] [<5CRSR R>] [<1CHR$(214)>] [<3CRSR R> 
] (<1CHR$(214)>] [<17CRSR R>] [<4CHR$(214)>] 

[<1CHR$(186)>]"1620 DATA"[<1CHR$(214)>] [< 
6CRSR R>] [< 1 CHR$(21 4) >] [ <5CRSR R>][<1CHR$ 
(214)>] [<1OCRSR R>) (<8CHR$(214)>] [<7CRSR 
R>] [<1CHR$(214)>)"1 630 DATA"[<1CHR$(21 4)> 
] (<6CRSR R>] [<1CHR$(214)>] [< 5CRSR R>][<1C 
HR$(21 4) >] [<1OCRSR R>] [ <1CHR$(214)>] [<14C 
RSR R>][<1CHR$(214)>]"1640 DATA"[<1CHR$(2 
1 4) >] [<6CRSR R>] [<1CHR$ (21 4) >] (OCRSR R> ] 
(<3CHR$(214)>)[<1OCRSR R>][<1CHR$(214)>][ 
<14CRSR R>](<1CHR$(214)>]"1650 DATA"[<1CH 
R$ (21 4) >] [<6CRSR R>] [<1CHR$ (21 4) >] [OCRSR 
R>] [<1CHR$(21 4) >) [OCRSR R>1 [<8CHR$ (21 4) 
>][<14CRSR R>][<1CHR$(214)>]"1660 DATA"[< 
1 CHR$ ( 21 4) >] [OCRSR R>) [<1CHR$ (21 4) >] [OC 
RSR R>] [<1CHR$(214)>] [< 3CRSR R>][<1CHR$(2 
14)>][<10CRSR R>][<12CHRS(214)>]"1670 DAT 
A"[<1CHR$(214)>] [<6CRSR R>] [<1CHR$(214)>] 

[ < 5CRSR R>] [<1CHR$(214)>] [OCRSR R>][<1CH 
R$ ( 214)>] [<1OCRSR R>) [<1CHR$(214)>] [<3CRS 
R R>] [<1CHR$ (21 4) >] [OCRSR R>] [< 1CHR$ (21 4 
) >] "1 680 DATA" [<1CHR$ (21 4) >) [OCRSR R>] [< 
1CHR$ (21 4) >] [< 5CRSR R>] [ClCHRS(21 4) >] [OC 
RSR R>][<1CHR$(214)>][<1OCRSR R>][<1CHR$( 
21 4) >] [OCRSR R> ) [<1CHR$ (21 4) >] [OCRSR R> 
][<1CHR$(214)>]"1690 DATA"[<1CHR$(214)>][ 
OCRSR R> ] [< 1 4CHR$ ( 21 4) >] [<3CRSR R>][<8CH 
R$ (21 4) >] [OCRSR R>] [<1CHR$ (21 4) >) [<6CRSR 
R>][<1CHR$(214)>)"1700 DATA"[<1CHR$(214) 
>][<38CRSR R>][<1CHR$(214)>]" 

1710 DATA"[<1CHR$(214)>)[<38CRSR R>][<1CH 

R$(214) >] " 

1720 DATA"[<1CHR$(214)>)[<38CRSR R>][<1CH 
R$(214) >] " 

1730 DATA"[<39CHR$(214)>]" 

1740 DATA214,6 

1800 DATA34,207,43,219,52,39,29,69,34,207 

,43,219,23,59,29,69,34,207 

1810 DATAI 9,137,23,59,29,69 

1 820 DATA2 3,59,17,103,19,137,21 ,237,23,59 

,17,103,19,137,21,237,23,59,29,69,26,20 

1830 DATA23,59,21,237,17,103 

1900 DATA48,127,99,99,99,99,99,99,127 



1901 DATA4 9,3,3,3,3,3,3,3,3 
1 902 DATA50,127,3,3,3,127,96,96,127 
1903 DATASI,127,3,3,63,3,3,3,127 
1 904 DATA52,99,99,99,127,3,3,3,3 

1905 DATA53,127,96,96,127,3,3,3,127 

1906 DATA55,127,3,3,3,3,3,3,3 

1 907 DATA54,1 27,96,96,1 27,99,99,99,1 27 
1908 DATA56,127,99,99,127,99,99,99,127 

1 909 DATA57,127,99,99,127,3,3,3,127 

1910 DATA0,1 26,1 89,21 9,255, 255,21 9,1 89,12 
6 

1911 DATA21 5,2 55,1 1 8,52,60,4 4,4 4,1 26,2 43 

1912 DATA214,0,0,126,122,94,94,126,0 

1913 DATA47,0,0,32,0,0,0,0,0 

1914 DATA31,126,68,137,145,145,137,68,126 

1999 DATA-1 

2000 IFA$="Z"THENXl=-8:Yl=0:GOTO2060 
2010 IFA$="C"THENX1=8 :Yl=0:GOTO2 060 
2020 IFA$="@"THENX1=0:Yl=-8:GOTO2060 
2030 IFA$ = "/"THENX1=0 :Yl=8:GOTO2060 
2040 RETURN 

2060 X=X+X1:Y=Y+Yl:IFY>121ANDY<126THENGOS 
UB2600 

2063 XP=X:GOSUB2500:POKEV+1,Y:TS=1 

2065 IFRX=1 THENPOKEV+16,PEEK(V+l6)ORI :G0T 

02070 

2067 POKEV+16,PEEK(V+l6)AND254 
2070 POKEV,LX 

2075 P0KEW(2),0:POKEW(2),65 

2080 XN=X:YN=Y 

2082 IFYl=-8THENYN=YN+21 

2084 IFYl=8THENYN=YN-21 

2086 IFXl=-8THENXN=XN+24 

2088 IFXl=8THENXN=XN-24 

2090 MN=1:P0KE198,0:RETURN 

2500 RX=INT(XP/2 56):LX=XP-RX*256 : RETURN 

2600 IFX=16THENX=320:Xl=-8:RETURN 

2 610 IFX=32 8THENX=2 4 :Xl=+8:RETURN 
2620 P=PEEK(V+30):RETURN 

2700 POKEV+3,YN:XP=XN:GOSUB2500:POKEV+2,L 
X 

2 71 0 IFRX=1 THENPOKEV+16,PEEK(V+l6)OR2:GOT 
02730 

2720 POKEV+16,PEEK(V+1 6)AND253 

2730 P=PEEK(V+30)rRETURN 

3000 YM=INT(RND(1)*184+50):POKEV+5,YM 

3005 XP=INT(RND(1)*296+24):GOSUB2500:POKE 

V+4,LX 

3010 IFRX=1THENPOKEV+16,PEEK(V+l6)0R4:RET 
URN 

3020 POKEV+16,PEEK(V+l6)AND251:RETURN 
7000 REM 

7010 IF(Ni=5)OR(NI=7)THENGOSUB7500:GOTO70 
50 

7020 IFN1=3THEN8000 
7050 GOTO550 

7500 Q=Q+200:PRINT"[<1H0ME>][<1CYN>]SCORE 
"Q:POKEV+38,3 

7510 FORP=10TO255STEP5:POKEW(1) ,0:POKEFH( 
1),P:POKEFL(1),P:F0RU=1T05 
7520 POKEW(1),33:NEXTU,P:POKEW(1),0 
7530 GOSUB3000:POKEV+38,2:P=PEEK(V+30): PO 
KE198,0:RETURN 

8000 POKEW(1) ,0 :POKEW(2) ,0:PQKEW(3) ,0:PQK 
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Frogger 
per C 64 



Seguito listato Frogger. 

EV+39,1 2 

8010 POKEFH(3) ,10:POKEFL(3) , 1 00 :POKEW(3) , 
1 29 

8020 POKE2040,1 5:FORP=1T02000:NEXT:TS = 0:F 
R=0 

8030 1 = 1-1 :IFI = -1THEN1 0000 

8040 POKEW(3) ,0 :P=PEEK(V+30):GOTO500 

10000 FORP=1T03:POKEW(P),0:NEXT 

10010 FORP=255TO0STEP-5:POKEW(1),0:POKEFH 

(1),P:POKEFL(1),P:POKEW(1),33 

1 0020 FORU=1T025 :NEXTU,P 

10030 PRINT"[<1HOME>][<10CRSR D>1(<17CRSR 
R>][<1CYN>)(<1RVS>]:FORP=1T09:PRINTMI 
D$("GAME OVER",P,1); 

1 0040 FORU=lTO50:NEXTU,P:POKEV+21 ,0 
10050 FORP=lTOl000:NEXT:PRINT"[<1RVS OFF 
>)" 

1 0060 FORP=1TOl0 :IFQ>HI(P)THENHN=P:P=11 :G 
OTOl0100 
10070 NEXT 
10080 GOTO400 

10100 PRINT"[<1CLR>][<1RED>]WHAT’S YOUR N 
AME?[< 3CRSR D>]": HI$ = "":L=0 
10110 GETA$ 

10120 TM=TM+1:IFTM=4000THENl0200 

10130 IFA$=""THEN10110 

10135 IFASC(A$)=13THEN10200 

10140 IFASC(A$)=20THEN1 01 00 

10150 IFA$=" "THENHI$=HI$+A$:PRINTA$;:L=L 

+ 1 :IFL=15THEN1 0200 

10155 IFA$ = " "THENl0110 

1 01 60 IFASC( A$)<650RASC(A$)>90THENl0110 
10170 L=L+1:HI$=HI$+A$:PRINTA$;:IFL=15THE 
NI 0200 

1 01 80 GOTOl0110 

10200 IFHN=10THENHI(HN)=Q:HI$(HN)=HI$:GOT 
0400 

10210 FORP=lOTOHN+1STEP-1 

10220 HI$(P)=HI$(P-l):HI(P)=HI(P—1):NEXT 

10230 HI$(HN)=HI$:HI(HN)=Q 


10240 GOSUBl 3000 :GOTO400 

11000 SG=SG+1:DL=-DL:ME=ME-50:IFME<50THEN 
ME=50 

11010 FORP = lTOl4 :POKEW(1) ,0:POKEFH(1) ,SH( 
P):POKEFL(1),SL(P):POKEW(1),33 
11020 F0RU=1T0200:NEXTU,P 

11030 F0RP=1T03:POKEW(P),0:NEXT:POKEV+21, 
0 :POKEV+5,150:POKEV+2 3,4 :POKEV+2 9,4 
11035 POKEV+16,0 

11040 PRINT"[<1CLR>][<1RVS OFF>][<1PUR>) 

[<1CRSR D>]":PRINT"@@@@@@@@@@@@@@@@@@@@@@ 
000000000000000000 "• 

11050 FORP=lTO20:PRINT"@ 

0 0";:NEXT 

11060 PRINT"0@@@@@@@@@@@@@@@@(a@@@@@@@<a@@@ 
@@@@@@@@@@@"; 

11065 PRINT"[<1H0ME>][<12CRSR D>]"SPC(6)" 

[<1GRN>]250 POINTS"; :PRINTSPC(9)"[<1WHT>] 
1000 POINTS"; 

1 1 070 X ( 1 )=74 :X(2)=222 :POKEV+21 ,4 

11080 RN=INT(RND(1)*2):RN=21+RN 

11090 FORP=2TORN:POKEV+4,X((PANDI)+1):POK 

EW(1 ) ,0 :POKEW(1) ,33 :FORU=lTO200:NEXTU,P 

11095 POKEW(1),0 

11100 IFRN=21THENBO=l000 

11110 IFRN=22THENBO=2 50 

11120 PRINT"[<1H0ME>] [<1 RED>]BONUS"BO" PO 
INTS."Q" +"BO" ="Q+BO;:Q=Q+BO 
11130 ONRN-20GOSUB11200,11250:FORP=lTOl00 
0 :NEXT 

11140 POKEV+21,0 :POKEV+23,0 :POKEV+29,0 :GO 
TO4 50 

11200 FORP=50TO250STEPl0:POKEW(1),0:POKEF 
L(1),P:POKEFH(1),P:POKEW(l),33 
11210 FORU = lTO50:NEXTU,P:POKEW(1 ) ,0:RETUR 
N 

1 1 2 50 FORP=250TO50STEP-10 :POKEW(1) ,0:POKE 
FL(1),P:POKEFH(1),P:POKEW(1),33 
1 1 260 FORU=lTOSO :NEXTU,P:POKEW(1) ,0:RETUR 
N 

13000 PRINT"[<1CLR>][<1GRN>] 

13010 FORP=1TOl0 :PRINTHI(P);TAB(20)HI$(P) 


in cui è registrato il contasecondi. 
500 - 518 - Stampano sullo schermo 
il labirinto e posizionano gli sprite. 
520 - 700 - Costituiscono il cuore del 
gioco. Controllano se è.stato premu¬ 
to un tasto, stabiliscono se la mela si 
deve spostare oppure no, aggiorna¬ 
no il contasecondi TM. Mandano il 
programma alle varie routine che 
determinano gli effetti di animazio¬ 
ne ed il punteggio del gioco. 
1000-1080 - Contengono i DATA 
che si riferiscono agli sprite. 
1100-1350 - Contengono il disegno 
del labirinto n. I. 

1500-1740 - Contengono il disegno 
del labirinto n. 2. 


1800-1810 - In queste linee è memo¬ 
rizzata la musica che fa da sottofon¬ 
do al gioco. 

1820-1830 -Contengono i dati riferi¬ 
ti alla musica che viene eseguita alla 
fine di ogni livello. 

1900-1914 - In queste linee sono me¬ 
morizzati i dati dei caratteri pro¬ 
grammabili. 

1999 - Conclude la serie dei dati sui 
nuovi caratteri. 

2000-2090 - Vengono eseguite quan¬ 
do viene premuto un tasto. Control¬ 
lano se è un tasto direzionale: in 
caso affermativo, aggiornano i valo¬ 
ri delle posizioni delle due rane, ma 
muovono solo la rana verde. 


2500 - È richiamata in varie parti del 
programma, c si occupa di calcolare 
i valori dei due registri che determi¬ 
nano la posizione orizzontale degli 
sprite. 

2600-2620 - Gestiscono la funzione 
del “teletrasportatore”. 

2700-2730 - Muovono la rana rossa. 
3000-3020 - Determinano la posizio¬ 
ne della mela. 

7000-7050 - Controllano i rapporti 
di contatto fra l’animazione 0 (la 
rana verde) e le animazioni 1 e 2. 
7500-7530 - Vengono eseguite quan¬ 
do c’è un contatto Frog - mela: ag¬ 
giornano il punteggio e creano effet¬ 
ti di animazione. 
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Frogger 
per C 64. 


Seguito listato Frogger. 

"[<1CRSR D>]":NEXT 

13020 FORP=lTO20:RN=INT(RND(1)*16) 

13030 L=(HN-1)*2:L=L*40 

13040 FORU=LTOL+39:POKET+U,RN:NEXTU,P 

T 3050 RETURN 

30000 V=532 4 8:POKEV+21,0 :POKEV+32,0 :POKEV 
+33,0:POKEV+23,0 :POKEV+29,0 :PRINT"[<1CLR> 
1 " 

30005 PRINTCHR$(142):PRINT"[<15CRSR D>][< 
1GRN>][<14CRSR R>)PLEASE WAIT" 

3001 0 FORP=0TO62:READA :POKE832+P,A:NEXT:P 
OKE2 04 0,1 3 :POKEV+3 9,5 :POKE2041 , 1 3 

30015 POKEV+40,2 

3002 0 FORP=0TO62: READA :POKE8 96+P,A: NEXT : P 
OKE204 2,1 4:POKEV+41 ,7 

30025 FORP=0TO62:READA :POKE960+P,A:NEXT 
3 003 0 POKEV+37,5:POKEV+38,2:POKEV+28,4 
30070 FORP=lT024:READSC$(0,P):NEXT:READCA 
(0):READCO(0) 

3 00 80 FORP=1T024 :READSC8(2,P) :NEXT:READCA 
(2) :READCO (2) 

30090 RETURN 

31 000 SI = 54272:VL= SI + 2 4 :POKEVL,0 

31010 FORP=lT03:U=SI+(P-1)*7 

31 020 FL(P)=U:FH(P)=U+1 :TL(P)=U+2:TH(P)=U 

+ 3 :W(P) =U+4:AD(P)=U+5:SR(P)=U+6:NEXT 

31 030 POREAD(1) ,8 :POKESR(1) ,8*16+2 

31 040 POREAD(2) ,5*1 6+1 :PORESR(2) ,0 

31 050 POREAD(3) ,10 :PORESR(3) ,0 

31 060 PORETL(2) ,200 :PORETH(2) ,9:POKEFL(2) 

,103:POREFH(2),17 

31 070 FORP=l1TOOSTEP-1 :READNH(P):READNL(P 
):NEXT 

31080 FORP=lTOl4:READSH(P),SL(P):NEXT 
31 0 90 FORP=1T03:POREW(P) ,0 :POREVL,15 :RETU 
RN 

32000 REM 

3201 0 PORE56 334,PEER(56334)AND254 :POREl ,P 
EER(1)AND251 


32020 FORP=0TO2039 :POREP+12 .88,PEER(P+532 
48):NEXT 

32030 POREI,PEER(1)OR4:PORE56334,PEER(563 
34)ORI 

32040 READA: IFA=-1 THF.N32070 

32050 FORP=0TO7:READB:POREl2288+A*8+P,B:N 

EXT 

32060 G0T032040 

32070 PORE53272,(PEER(53272)AND240)+12 
32080 RETURN 
.>3000 FORP=l TOl 0 

33010 HI(P)=1000:HI$(P)="L.M.S." 

33020 NEXT:HN=1 :RETURN 

34000 PRINT"[<1CLR>][<8CRSR D>][<1GRN>] 
:FORP=lTO200:RN=INT(RND(1)*1 000) 

3401 0 PORES+RN,46 + INT(RND(1)*2) :PORET+RN, 
1:NEXT 

34020 PRINT"[<1RVS>] [<1CHR$(223)>] 

(<1CRSR R>][<1CHR$(169)>] [<1CHR$(223)>)( 

<1CRSR R>][<1CHR$(169)>] [<1CHR$(223)>][< 

1CRSR R>][<1CHR$(169)>] 

Il • 

/ 

34030 PRINT" [<3CRSR R>] [<1CRSR R>] [<1C 

RSR R>] (<1CRSR R>] (<1CRSR R>] [<3CRSR R 

>] " 

34040 PRINT"[<1RVS>] [<1CRSRR>] [<1 
RVS OFF>][<1CHR$(169)>][<1RVS>][<1CRSR R 
>] (<1CRSR R>] [<1CRSR R>] (<1CRSR R>][<1 

CHR$(223)>][<1CRSR R>][<1RVS OFF>][ClCHR 
$ (223)>] [<1RVS>] [<1CHR$(223)>]" 

34050 PRINT"[<1RVS>] [<3CRSRR>] (<1CRSR 
R>][<1CHR$(223)>)[C1CRSR R>] [<1CRSR R>] 

[<1CRSR R>] [<1CRSR R>] [<3CRSR R>) " 

34060 PRINT"[<1RVS>] [<3CRSRR>] [<1CRSR 
R>] [<1CRSR R>][<1RVS OFF>][<1CHR$(223) 

>)[<1RVS>] [<1RVS OFF>][<1CHR$(169)>][< 

1CRSR R>][<1CHR$(223)>][<1RVS>] [ClRVS 
OFF>][<1CHR$(169)>][<1CRSR R>][<1RVS>] 

(<1RVS OFF>][<1CHR$(169)>]" 

34070 PRINT"[<2CRSR D>][<1CYN>]_1984 L.M. 
S. CREATED BY L. MARRAS" 

34080 PRINT"[C1CRSR D>)[<1YEL>](<1RVS>]F 
1 [< 1 RVS OFE’>] TO START [<1RVS 

>]F3[<1RVS OFF>] TO SEE THE HITS"; 

34084 PRINT"[<lHOME>][<9CRSR D>][<1G.3>]" 
SPC(20)"[<1RVS>] " 

34086 PRINT"[<1H0ME>][<10CRSR D>][<1RED>] 
"SPC(20)"[<1RVS>] " 

34090 RETURN 



8000-8040 - Determinano la perdita 
di una vita e, se la scorta è esaurita, 
mandano alla riga 10000, dove si 
conclude la partita. Altrimenti man¬ 
dano a 500. 

10000-10080 - Creano la grafica e il 
sonoro di fine partita, e controllano 
se si è stabilito un record. 
10100-10180 - Chiedono il nome del 
giocatore che ha stabilito il record. 
10200-10240 - Aggiornano la classi¬ 
fica degli Hit. 

11000-11140 - Vengono eseguite alla 
fine di ogni stage e fanno passare il 
gioco ad un livello superiore. Inoltre 
determinano l’entità del bonus. 
11200-11210 - Contengono la routi¬ 
ne sonora eseguita se il bonus è di 
1.000 punti. 


11250-11260 - Routine sonora nel 
caso di un bonus da 250 punti. 
13000-13050 - Stampano la classifi¬ 
ca dei record e ne fanno lampeggiare 
l’ultimo registrato. 

30000-30090 - Inizializzano il sono¬ 
ro. 

31000-31090 - Inizializzano il sono¬ 
ro. 

32000-32080 - Rilocano la mappa- 
caratteri dall’indirizzo 12288 in poi, 
e creano nuovi caratteri grafici. 
33000-33020 - Creano la classifica 
iniziale dei record. 

In ognuna delle dieci posizioni è re¬ 
gistrato il valore 1.000. 

Perciò, per poter entrare in classifi¬ 
ca, bisogna superare almeno i 1.000 
punti. 


34000-34090 - Creano lo schermo di 
presentazione. 

State molto attenti quando ricopie¬ 
rete le linee 32000-32080 poiché un 
errore potrebbe comportare il bloc¬ 
co totale del sistema. 

Anche la linea 10030 può creare 
qualche difficoltà: infatti il numero 
totale dei caratteri è superiore agli 
80 consentiti sul C 64. Basterà co¬ 
munque digitare il punto interroga¬ 
tivo al posto del comando PRINT. 
Salvate il programma su disco o cas¬ 
setta prima di farlo girare! Poiché è 
stato disinserito il tasto RUN STOP 
una volta lanciato non è più possibi¬ 
le fermare il programma. ■ 
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THANK YOU CANON! 


$ 

1 

2 


Le fantastiche immagini televisive delle 
missioni spaziali arrivano nelle nostre case, 
per la maggior parte, grazie a speciali 
obiettivi Canon montati sm tutti gli Space 
Shuttle e scelti dalla RCA perché perfettamente 
rispondenti alle severissime specifiche NASA 
(operabilità da —30° a + 80°C ad es.) 

Una testimonianza del nostro impegno 
tecnologico al servizio dell'uomo e della 
scienza. 


COMPUTER CANON AS-100 : 
TECNOLOGIA SUPERIORE PER AUMENTARE 
L'EFFICIENZA DEL LAVORO D'UFFICIO 



UN PATRIMONIO ESCLUSIVO 
DI TECNOLOGIA 
DALLO SPAZIO 
AL VOSTRO UFFICIO 


Il business computer Canon AS100 è lo 
strumento di lavoro che vi aiuterà a 
prendere le vostre decisioni in modo più 
veloce e preciso. La chiave è la nostra serie 
di programmi CANO B RAIN, che sfruttano 
al massimo la potenza dell’AS 100, prepa¬ 
rando e organizzando le informazioni in 
modo da poterne trarre una conclusione 
significativa. 

Canobrain comprende una tabella elet¬ 
tronica, in grado di simulare ogni vostra 
situazione (CanoCalc), la possibilità di 
trasformare i dati in numerosi tipi di gra¬ 
fici, anche in brillanti colori (CanoGraph) 


ed una potente data base (CanoFile). Potete 
passare istantaneamente da un programma 
all'altro perché tutti e tre soìio compieta- 
mente integrati. 

Infine il sistema di word processing 
CanoWriter completa le prestazioni del¬ 
l’AS 100, un business computer profes¬ 
sionale che accetta parecchi linguaggi di 
programmazione, è espandibile per una 
futura crescita aziendale e naturalmente 
collegabile ad una vasta gamma di stam¬ 
panti e unità video, in bianco!nero o a 
colori. Canon AS 100, grazie ai sistemi 
operativi MS-DOS e CP/M-86, vi garanti¬ 


sce i vantaggi della compatibilità software. 
E' una macchina efficiente, affidabile, di 
alte prestazioni nel tempo, come tutte le 
macchine per ufficio Canon: fotocopiatrici, 
macchine per scrivere elettroniche, tele- 
copiatori, sistemi microfilm. 

Canon 

TECNOLOGIA ESCLUSIVA 





















;X Expert 

— Parte seconda- 


Intelligenza artificiale 
sullo Spectrum 


di Luciano Lotti 

N ella prima parte è stata da¬ 
ta una descrizione genera¬ 
le degli E.S. (Expert 
System): in questo numero verrà 
presentato un mini Expert System 
per lo ZX Spectrum 48 Kbyte. 


Pur non potendo metterlo sullo stes¬ 
so piano del peggior E.S. esistente 
sul mercato, lo studio degli algorit¬ 
mi utilizzati potrebbe essere note¬ 
volmente didattico. 

Know-how, ovvero sapere come 

Il procedimento usato in ZX Ex¬ 
pert è il backward-chaining applica¬ 
to a regole in cui sono permessi i 
legami logici AND e NOT. 

Le possibili soluzioni finali, conte¬ 
nute nel vettore U$, vengono passa¬ 
te una alla volta, attraverso il para¬ 


metro C$ alla routine VERIFICA, 
cuore del programma. 

Dal campo C$ sono trasferite ad A$ 
che, assieme allo stack 1, è usato per 
simulare la ricorsione, non possibile 
in BASIC. 

Una routine cerca gli antecedenti di 
A$ e li pone nello stack 2. 

Dopo che quest’ultimi sono stati 
convenientemente riordinati (prima 
quelli già noti, seguiti da quelli 
espandibili, seguiti dai rimanenti) 
comincia l’opera di verifica. 

Uno di essi viene estratto dallo 
stack, si controlla nella memoria at- 


Listato 1. Il programma ZX Expert. 


i m 


SUB 

SUB 

SUB 

SUB 

SUB 

NOT 


7 CO 
10 CO 
15 GO 
30 GO 
30 CO 
4.0 IF 
: GO TO 
50 IF 
50 CO 
m ipo non 
70 STOP 
3000 REM 
3010 DIM 
): LET pisi: 
3015 
3030 
303 

304.0 I 

0 TO 
305 


5600 
7000 
4100 
5700 
2000 
f La 


REM 
REM 
REM 
REM 
REM 
TMEN 


inizia lizz 
costi' vett 
Presen taz . 
prende ipo 
verifica 
GO SUB 6000 


o ve r i f i c 


9000: REM iP 
ipo<topipo THEN GO TO 
SUB 6500: GO TO 0000: 
veri fic 


20 

RE 



44T: DIM 
LÈT P2=l 


«il: 


V*(20,44 


pl + 1 

a* 


LET Pi» 

REM flnt 
:N 

ì.po senza ant 
; REM un ant neg 
THEN LET t*aa*: 
r LET f t ( f 1)■11: LET 
ÌINT "Ho determinato 
che*",n J;" "j 

2062 IF NOT fi al AND pl<=2 THEN 
LET fla si; RETURN 

2064 IF NÒT flai THEN CO TO 2140 
30?0KÈHKGJEBli[3: REM prim ant 
già noti 


3080 
30901 
2100 
2110 
2115 
3120 
TURN 

3130 PRINT 
"n* + " "+a* 

2140 LET plspl-2: 

LET plsPl+1 
2150 DIM (20,44) 


LET b$»w*(p2) 

_ _ REM reg pos? 

IF fla THEN CO TO 2200 
IF p2 >1 THEN GO TO 2060 
LET f*(fl)=a*: LET fl=fl+l 
IF Pl<»2 THEN LET fla*0: RE 


"Ho determinato che 


LET at=v$(pl) 


LET P2 = 1 


REM e'anch con 


2160 CO TO 2030 

2200Hs9HHaKBi 

s? 

2210 IF NOT fla THEN LET V*(pl) = 
bt: LET piapl+1: LET a$=b$: DIM 
Ul t (20,44 ) : LET P2 = l: GO TO 2030 
2300 IF ba( TO 4)s"n on " THEN LE 
T^tt = b$:Ìg&KII^KBKN: LET k$=t*: 

3310 LET K*ab* 

2320 PRINT E'vero Che 
" ’ K $ 

2330 INPUT " s(si) 

p(pe r che ' ) 
oscenze)”ji % : PRINT 
2340 IF i$«="P" THEN 
GO TO 2320: REM perche 
2350 IF i*="C" THEN 
GO TO 2320: REM lista conoscenz 
e 

2360 IF i*<>"S" RND i*<>"n" THEN 
GO TO 2330 

^ 370 IF i* = “n" THEN LET t« = k$:BB 

2380 IF k$=b$ THEN~LET f*(fl)»b* 
LET f1= f1 +1 : GO TO 2110 


’ ' n * j 

n (no) 
c (con 


f* (f1)=ki 



2390 LET 
LET fiala 
2400 REM 
3000 REM 
3005 IF a 

T t*=a* __ 

3010 LET pun*0 
3015 LET punspun+1 
3020 IF pun >y THEN 
3025 IF r * (pur.) < >as 
015 

3030 IF 
" THEN 
3035 GO 
3199 RETU 
3400 REM 
3405 LET . 

3410 LET punspun+1 
3415 IF pun=fl THEN 


fl=f1+1: 


F PU EH 


r i (P 

an 

TO 3 


un-1) ( 


IF. JOOO 


016 


on " THEN LE 
LET a$ = t* 


RETURN 

THEN GO TO 3 

TO 7)="ailora 
REM proci 


TPhTI PO 


LET f la = 1 : R 


50 
























tiva (vettore F$) se è già noto, e se lo 
è lo si scarta e si passa al successivo. 
Se invece è sconosciuto si controlla 
se è possibile espanderlo ulterior¬ 
mente. 

In questo caso si salva il contenuto 
di A$ nello stack 1, lo si sostituisce 
con l’antecedente in questione e si 
ricomincia dalla estrazione degli an¬ 
tecedenti. 

Quando si giunge ad un punto non 
ramificabile si pone la domanda al¬ 
l’utente. 

Se quest’ultimo risponde che il 
fatto è vero lo si memorizza nei fatti 


noti e si passa all’elemento successi¬ 
vo dello stack 2. 

Quando tutti gli antecedenti di una 
regola risultano veri (lo stack 2 è 
vuoto), si memorizza il conseguente 
contenuto in A$ come vero e si ritor¬ 
na al nodo superiore dell’albero ri¬ 
pescando il valore di A$ dallo stack 
1 . 

Il nodo appena analizzato risulterà 
presente tra i fatti noti, verrà quindi 
scartato ed il programma esplorerà 
il successivo. 

Se, ad un certo punto si sarà rag¬ 
giunto il primo elemento dello stack 


I si sarà pure esaurita la ricerca e si 
potrà stampare C$ come soluzione. 
Se invece l’utente risponde che il fat¬ 
to è falso o, dalla routine apposita, 
viene trovato un antecedente regi¬ 
strato come negativo, il programma 
registra immediatamente il contenu¬ 
to di A$ come falso e risale di un 
nodo. 

II legame AND richiede infatti che 
tutti gli elementi risultino veri per¬ 
chè lo sia anche l’intero. 

Salito di un nodo il controllo sud¬ 
detto viene ripetuto e di conseguen¬ 
za la risposta negativa si può propa- 


Seguito listalo ZX Export. 


ETURN 

3420 IF r $ (PUH) =b$ THEN LET fia = 

0: RETURN 

3425 GC^TO 3410 

350! lIt m ** : LET 

X$ = t* 

3510 LET pun=0 

3520 LET punspun+i 

3530 IF pun = r" 1 THEN LET fla=l: R 

ETURN 

3540 IF f $ (PUH ) = X $ THEN LET fla = 

0: RETURN 

3550 GCi TO 3520 

3529 RETURN 

3700 rem Braca WiìiT'lil Iff TOTHP 

3705 LET ♦« = *«• ""»mi WtiM LET 
X * = t I 

3710 LET pun=0 
3715 LET pun=pun+l 
3720 IF rt(pun) oxt RND r * (pun ) < 
>bt THEN GO TO 3735 
3725 if rt(pun-l) ( TO 7) = " allora 
THEN LET fla=0: RETURN 
3735 IF pun =y THEN LET fla=l: RE 
TURN 

3740 GO TO 3715 
3799 RETURN 

3300 rem aìgaraaga 

3805 IF t*( TO 4)="non " THEN LE 
f t$ = t$<5 TO ) +" : RETURN 

3810 LET tts'Tion "+t$( TO (LEN f 
$ ( 1) -4) ) 

3849 RETURN 

3850 REM _ _ 

3860 PRINT '"STO CERCANDO DI DIM 
OSTR RRE CHE; "'n i;" " ; a $ 
:3865 adiBH>iafcfcr«I>] : REM so gia'che 
3870 IF p 2 = 1 THEN PRINT "SE ";n 
t; " "; bi■' "RLLORfl ";n$;“ " ; a * : RE 
TURN „ 

3875 PRINT '"SE "; : LET t*=b*:BS 


PERCHE 


PRINT n$; 
^RLLORR 

PRINT 



3399 
3900 
3910 
3915 
3920 
N GO 
3925 
a che 


RETU 
REM 
LET f La 
FOR j-10 
IF W*(j) 
TO 3950 
IF f (.agl 


n$; 


1 = 1 

TO P2+1 STEP 
( TO 5) =’’ 


-1 


THE 


THEN PRINT '"50 gi 


LET f lag 1=0 
PRINT n* + " "+W*(j) 

NEXT j 
RETURt 

REM ___ 

LET d i rii =2 
LET (p2) =f $ (pun-dim) 




3930 
3935 
3950 

3999 

4000 

4005 ___ 

4010 LET Wi (P2) =C * (PUn-d i ITI) : LET 
P 2 =P 2 +1 

4015 LET dim =dim +1 

4020 IF rs(pun-dim) < TO 3)<>"se 

" THEN GO TO 4010 

4099 RETU RN _ 

4100 REM 

4110 CLS : PRINT ''" ZX 

EXPERT" 

4120 PRINT ''” cercherò' di diro 
ostrare una delie "jtopipo;" 

ipotesi che ho nella Mia mento 
ria" 

4130 INPUT "PREMI V PER UEDERLE" 
; i t 

4140 IF i*<>"V" THEN RETURN 
4150 FOR j=l TO topipo: PRINT n* 
; " "; u* ( j) : NEXT j 
4160 RETURN 
4200 REM 
4205 CLS 

4210 IF fisi THEN PRINT ''"Per a 
desso non ho alcuna infor- mazio 
ne certa"'': RETURN 
4220 PRINT '"ECCO Ciò 
FOR j =1 TO f 1-1 


Che SO 


4230 

4235 

4240 

4299 


PRINT 
NEXT j 
RETURN 


= = > 


n*; 


f * U> 
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ZX Expert 


ELENCO DELLE ROUTINE 
2000 Verifica. 

3000 Cerca antecedente di AS e push in stack 2. 
3400 Registrato positivo? 

3500 Registrato negativo? 

3700 B$ è anche conseguente? 

3800 Invcrte. 

3850 Perchè. 

3900 So già che. 

4000 Procedura 1. 

4100 Presentazione. 

4200 Lista conoscenze attuali. 

4300 Almeno un antecedente registrato negativo? 

4400 I ) Prima antecedente complessi 2) Prima fat¬ 

ti già noti. 

4500 Riordina. 

5600 Inizializzazione. 

5700 Estrae un’ipotesi. 

6000 Ipotesi verificata. 

6500 Ipotesi non verificata. 

6600 Ipotesi senza regole che la riguardano. 

7000 Formazione vettori. 

9000 Procedura di fine. 


VETTORI 

1S() Contiene i fatti già accertati. 

r$() Contiene le regole. 

u$() Contiene le ipotesi. 

v$() Usato per la costruzione dello stack 1. 

w$0 Usato per la costruzione dello stack 2. 


Seguilo listalo ZX Esperi. 


4-300 
4310 
4320 
4330 
4340[ 
4350 
LET 
PRINT 
i Sto 
n $ ; " 

4360 
4370 
440 


REM 

LET 

FOR 

ET 


nfiRUT hf^rtiuo 


FLR1=1 
j = l TO 
bt=W t (. 


P2-1 

) 

___: rem rea neg? 

IF NOT ria THEN LET flal=0: 
j =p2 : LET rnd =INT (RND*2) : 
'("Siccome :“ RND rnd)+("U 


che : 

t$ 

NEXT j 
RETURN 


RND NOT md) : PRINT 



4405 FOR f =1 TO 2 
4410 LET punl=p2 
4420 LET punl=punl-l 
4430 IF puri 1 < =0 TMEN 
URN 

4440 LET b*=W$(PUn 
4450 IF f =2 THEN 
M reg pos 
4452 IF f =1 THEN 
e'anch ant 
a THEN 


NEXT f: RET 


RE 



RE 


M b$ 
4455 
44601 
4470 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
5600 
5605 
) : DIM 
P2 = l 
5610 
5620 
5640 
5650 
•5699 
5700 
5705 
O ) 

5999 

6000 
6010 
; n * ; 

6499 

6500 
6510 


E 4500 


4420 


PTOPDIHR 


GO TO 4420 

__ REM riordina 

GO TCL 
REM ' 

LET 0 *=W$ (punì) 

FOR t =»pun 1 TO p2-l 
LET w$ (t) =w$ (t+1) 

NEXT t 

LET w* (P2-1) =0$ 

RETURN 

REM _ _ 

DIM f$ (50,44) : DIM W*(20,44 
V $(20,44) : LET pl = l: LET 


TV (50,44) : DIM WJ 


i PO =0 

n* = "L'anima te' 
f 1 = 1 


LET 
LET 
LET 
CLS 

RETURN _ _ 

REM 

LET ipo=ipo+l: LET C*=U*(iP 


RETURN 
REM 
PRINT 
"iC$ 

RETURN 

REM _ 

PRINT 
IFICRTR ! ! ! 

6599 RETURN 

6600 PRINT 
nza antecedenti 
ggi togliendola 
«gola che abbia 

conseguente" 
6699 RETURN 


IP ri TF r.I "FPTFTThTR 


Ho verificato 


■ 

che 


TPHTF 


c$ 


'e ' un ipo tesi se 
.per favore corre 
o aggiungi una r 
■ ';Thb 5;c*'"come 


gare aH’indietro, anche fino alla so¬ 
luzione che ha generato l’albero. 
Quando si verifica questa eventuali¬ 
tà la soluzione viene scartata e si 
passa alla successiva fino a trovarne 
una valida o al loro esaurimento ed 
alla stampa di un messaggio di in¬ 
successo. 

Oltre a si e no sono permesse altre 
due risposte. 

Con “conoscenze” vengono visua¬ 
lizzati tutti i fatti noti fino a quel 
momento. 

Con “perché” viene infine mostrato 
il “ragionamento” che ha spinto il 
calcolatore a porre la domanda. 


Le regole 

II fine di questo programma è di 
permettere ad ognuno di scrivere il 
proprio set di regole. 

Ecco perciò le norme da seguire: 

• il numero di regole non è fisso ed il 
suo massimo dipende dalla memo¬ 
ria disponibile; 

• esse vanno scritte in istruzioni DA¬ 
TA separandole come è stato fatto 
nel listato; 

• il ciclo di lettura va adeguato al 
numero di DATA modificando il 
limite superiore dell’istruzione 
FOR-NEXT che carica i dati in R$ e 
la lunghezza di R$; 


• ciò va applicato anche al ciclo di 
lettura delle ipotesi finali (vettore 
U$); 

• i conseguenti non possono assolu¬ 
tamente cominciare con “non” al¬ 
trimenti non vengono riconosciuti; 

• due elementi non sono uguali se 
non sono scritti esattamente uguali: 
“oggi c’è bel tempo” è pertanto dif¬ 
ferente da “oggi c’è il sole” e da 
“non c’è brutto tempo”; 

• le frasi che costituiscono gli ante¬ 
cedenti non possono essere più lun¬ 
ghe di 44 caratteri se cominciano 
con “non”; 40 se iniziano in altro 
modo; 


i 
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STRINGHE 



SS 


ZX Expert 


Seguilo listato ZX Expert. 


7000 

7005 

7010 

4.) 

7020 

NEXT 


REM _ 

IF NOT ini2 TH 
DIM r$(117,44j 


FOR 

' À- 

7021 DRTR 
i"," allora' 

7022 DRTR ' 
ro","ha le 

ucce i io" 

7023 DRTR 


:N RETURN 

DIM U*i20,4 

RERD f « ( j) : 


j=l TO 117: 

LET y =J-1 

se "/'allatta i piccol 
, "e ' un mammifero" 
se", "non e"un mammife 
penne" , "a l lora" , "e 'un 


se 


carne' 


"e 

"a 


'un mammifero", 
l lora" , "e ' carni 

'un mammifero", 
","non mangia i 
i , a >. <.vi a , "e ' un erbivoro 

7025 DRTR "se","non mangia carne 
", "mangia insetti","allora" , "e ' i 
nsettiv.oro" 

7026 DRTR "se","e'un uccello","m 
angia carne" , "a l lora“,"e'un ucce 
Ilo predatore" 

7027 DRTR "se" , "possiede un rada 
r a u itrasuoni" , "at lora","ha cap 
acita'sensoria li speciali" 

7026 DRTR "se","e'un uccello pre 
, "ha il becco ricu 
"e'un rapace" 

, "e ' carni voto" , "ha 
, "a l lora","e'una t 


"mangia 
voro" 

7024. DRTR "se" , "e 
"non mangia carne 
nse 11 i ","ailo ra" , 


datore","vo la 
rvo","a i lora" 

7030 DRTR "se 
strisce nere 

igre" 

7031 DRTR "se 
la criniera" 

ne " 

7032 DRTR "se", 
pelo maculato" 

te ","a l io ra ", "e 

7033 DRTR "se", 
ha strisce ne re 

zebra" 

7034 DRTR "se", 
ha pelo maculato" 
ungo ", "a l lo ra ", "e 

7035 DRTR "se", "e 
ha la criniera 
'uomo", "allora 

7036 DRTR "se¬ 
ccia di giorno 
i estinzione", 
i la" 

7037 DRTR "se" , "non 
orno","e'un rapace" 


, "e ' carnivoro" 
"a l lora" , "e 'un 


"ha 

leo 


"e ' carnivoro" , "ha 
/‘corre veiocemen 
'un ghepardo" 

"e'un erbivoro"," 
", "a l lora ", "e ' una 

"e'un erbivoro"," 
"ha il collo l 
una giraffa" 
un erbivoro"," 
■e'allevato dall 
”,"e'un cavallo" 
,"e'un rapace","ca 
" , "e ' in pericolo d 
"a i lora","e'un'aqu 


caccia di 
"allora", 


g i 

'e ' 


un 

7031 


|U fO 1 
DRTR 


"se ","e'un uccello pr 
edatore " , "non vola","vive nei ci 
,i mi f reddi ” , "a l lora" , "e ' un pingu 
i no " 

7039 DRTR "se","e'un uccello pre 
datore" , "e'un abile volatore","r 
uba il pesce agli altri uccelli” 
,"vive presso le scogliere",‘all 
ora","e'un gabbiano" 

7040 DRTR "se","e'un uccello","e 
'un abile volatore","e ' inse11 i vo 
co","vive nei centri urbani","al 
iora","e'una rondine" 

7050 DRTR "se", "e'un mammifero", 
"vola"," «'insettivoro "/'ha capac 
ita'sensoriali speciali "/'allora 
","e'un pipistrello" 

7051 DRTR "se ", "e ' un uccello", "n 
on vola "/'corre velocemente", "al 
lora","e 'uno struzzo" 

7060 RESTORE 7060: FOR j=l TO 13 
: RERD U« ( j) : NEXT j 


aS Contiene il conseguente preso attualmente in 
esame. 

b$ Contiene l’antecedente attualmente preso in 

esame oppure è usato per il riordinamento dello 
stack 2. 

c$ Parametro per il trasferimento dell’ipotesi con¬ 

siderata alla routine VERIFICA. 
i$ Usato per l’input. 

k$ Usato per porre le domande all’utente sempre 

in modo affermativo. 
n$ Soggetto generale delle ipotesi. 

o$ Usato per l’input ed in riordina come campo di 

salvataggio. 

t$ Parametro per la routine INVERTE: in esso va 
posto l’antecedente su cui eseguire il non ,prima 
della chiamata della routine; in esso viene resti¬ 
tuito l’antecedente negato. 

x$ Contiene NON b$: è utilizzato nelle routine che 
richiedono sia b$ che non b$. 

Note 

Lo stack 2 contiene gli antecedenti al conseguente at¬ 
tualmente preso in esame. 

Lo stack 1 è utilizzato per salvare quegli antecedenti che 
sono anche conseguenti permettendo in questo modo la 
ricorsione. 


CAMPI NUMERICI 

/> 

dim Usato per procedere all’indietro, nella ricerca 
degli antecedenti in r$(). 

f FOR-NEXT usato nella routine 1) Prima ante¬ 

cedenti complessi 2) Prima fatti già noti per 
sapere se stiamo effettuando la prima o la se¬ 
conda passata. 

fi Punta la prima casella vuota di f$() in cui me¬ 
morizzare il successivo fatto accertato; usato 
come limite supcriore nei cicli che interessano 
flS(). . , 

fla Parametro per passare i risultati dalla routine al 
programma chiamante 0 = si, 1= no. 
flal Come sopra. 

iniz Flag per evitare, in caso di successive esecuzio¬ 

ni, il caricamento delle regole in r$(). 
ipo Contatore, puntatore dell’ipotesi considerata, 

j Usato nei vari FOR-NEXT che appaiono nel 

listato. 

pi Puntatore dello stack 1. 

p2 Puntatore dello stack 2. 

pun Puntatore usato per lo scorrimento dei vettori 

se poteva creare dei problemi l’uso di un FOR- 
NEXT. 

punì Come sopra. 

stamp Flag per l’eventuale visualizzazione delle dedu¬ 
zioni fatte. 

topipo Contiene il numero delle ipotesi memorizzate, 

y Contiene l’indirizzo dell’ultima parte dell’ulti¬ 

ma regola memorizzata in r$() al fine di evitare 
l’analisi di elementi vuoti di r$(). 
tt Variabile FOR-NEXT usata in RIORDINA 

per lo spostamento di una parte degli elementi 
dello stack 2. 
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Seguito listato ZX Export. 

7070 DRTR "e'una tigre", "e un le 
one","e'un ghepardo* , "e 'una zebr 
a", "e'un cavai lo" , "e'una giraffa 

7071 DfiTfi "e ' un pipistrello","e' 
uno st ruzzo ","e'un ' aqui la ","e'un 

Pinguino", "e'un gabbiano","e'un 
a rondine","e'un gufo" 

7080 LET tOPipo=j-l 
7090 LET^iniZ*© 

9010 PRINT ''" Vuoi andare ava 
nti o ti sei stancato ?" 

9020 INPUT " a (ancora) f (fine) 
"; LINE o* 

9030 IF o*B"f" THEN STOP 
904.0 IF 0 $ = "a" THEN GO TO 7 
9050 GO TO 9020 
9999 STOP 


Cercherò di dimostrare una delle 13 ipotesi 
che ho nella mia memoria 


L’animale è una 

tigre 

L’animale è un 

leone 

L’animale è un 

ghepardo 

L’animale è una 

zebra 

L’animale è un 

cavallo 

L'animale è una 

giraffa 

L’animale è un 

pipistrello 

L’animale è uno 

struzzo 

L’animale è un’ 

aquila 

L’animale è un 

pinguino 

L’animale è un 

gabbiano 

L’animale è una 

rondine 

L’animale è un 

gufo 

Figura 1. Queste sono 

le tredici possibili soluzioni 


finali attualmente memorizzate in ZX Expert assieme 
alle regole pertinenti. 


Cercherò di dimostrare una delle 13 ipotesi 
che ho nella mia memoria. 

È vero che: 

L'animale allatta i piccoli 
s 

Ho determinato che: 

L’animale è un mammifero 

È vero che l’animale mangia carne 

P 

STO CERCANDO DI DIMOSTRARE CHE: 

L’animale è carnivoro 

So già che: 

L’animale è un mammifero 

SE L’animale mangia carne 
ALLORA L’animale è carnivoro 
È vero che l’animale mangia carne 

s 

Ilo determinato che l’animale è carnivoro 
È vero che l’animale ha strisce nere 

n 

Ho determinato che l’animale non è una tigre 
È vero che l’animale ha la criniera 

P 

STO CERCANDO DI DIMOSTRARE CHE: 

L'animale è un Leone 

so già che: 

L’animale c carnivoro 
SE l’animale ha la criniera 
ALLORA l’animale è un leone 

È vero che l’animale ha la criniera 

s 

Ho verificato che l’animale è un leone 
Vuoi andare avanti o ti sei stancato? 

f 

Figura 2. Un esempio di dialogo tratto da ZX Expert. I 
“ragionamenti” vengono costruiti sulla base delle re¬ 
gole e dei fatti già noti. 


• il numero massimo di antecedenti 
di una regola è 19; 

• il limite di regole concatenabili è 
19. 

Modifiche e suggerimenti 

Per aumentare i limiti massimi ac¬ 
cennati è necessario operare sui vet¬ 
tori modificando le istruzioni DIM. 
Attenzione che alcune di esse, utiliz¬ 
zate per azzerare velocemente i vet¬ 
tori, sono sparse per il programma; 
vanno cambiate anch’esse assieme 
alle altre. 

Cambiando l’ultimo parametro di 
tutte le DIM si può variare la lun¬ 
ghezza massima delle stringhe che 


costituiscono gli antecedenti ed i 
conseguenti (ricordate che essa va 
ridotta di 4 se non iniziano con 
“non”). 

Alterando la lunghezza dei vettori 
usati per gli stack 1 e 2 si cambiano 
rispettivamente il numero di regole 
concatenabili e il numero di antece¬ 
denti permessi. 

Riducendo a circa venti caratteri la 
lunghezza delle stringhe e acconten¬ 
tandosi di poche regole il program¬ 
ma può girare anche su un 16 Kbyte. 

Per risparmiare memoria o per fa¬ 
cilitare la stesura delle regole si po¬ 
trebbe realizzare un programma che 
riempia con esse un vettore e poi, 
sostituendo ai cicli di caricamento 


della routine che inizia alla linea 
7000 delle istruzioni LOAD DA¬ 
TA..., caricare il vettore già formato 
da nastro. 

Il caricamento verrebbe effettuato 
una sola volta perchè la ruotine pos¬ 
siede un accorgimento che la esclude 
dopo il primo ciclo. 

Il soggetto generale delle regole è 
contenuto in N$; se si vogliono uti¬ 
lizzare vari soggetti conviene inse¬ 
rirli direttamente negli antecedenti e 
conseguenti é lasciare N$ uguale ad 
una stringa nulla. 

Infine, per i più bravi, si potrebbe 
cercare di introdurre la possibilità di 
utilizzare tra gli antecedenti anche il 
legame logico OR. ■ 
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orneo di bridge 



Parte prima 


Un programma 

per il calcolo degli score 

con Apple II 


di Vincenzo Delle Cave 

I l bridge è l’unico gioco di car¬ 
te che oltre ad offrire la pos¬ 
sibilità di fare una partita in 
casa tra amici, consente ai giocatori 
di partecipare a tornei che sono fre¬ 
quentemente organizzati nei circoli. 
La differenza fondamentale tra il 
bridge libero e quello competitivo è 
che nel primo la fortuna gioca un 
ruolo determinante, un po’ come in 
tutti i giochi di carte: possedere, 
cioè, carte più o meno “belle”. Nel 
bridge competitivo, invece, tutte le 
coppie giocano le stesse mani e ven¬ 
gono stilate due classifiche separate, 
una per le coppie N-S e una per le 
coppie E-O. Supponiamo, per esem¬ 
pio, che in un torneo di bridge ven¬ 
gano giocate 20 mani e che la linea 
N-S, possegga le carte più belle 15 
volte su 20. Arriverà prima sulla li¬ 
nea N-S la coppia che sfrutterà me¬ 
glio le proprie carte; ma egualmente 
arriverà prima, sulla linea E-O, la 
coppia che limitando i propri i dan¬ 
ni, cederà meno punti alle coppie 
N-S incontrate. 

In questo numero della rivista vi 
presento la prima parte di un pro¬ 
gramma che permette di calcolare 
gli score e di stilare due classifiche 
separate (N-S) e (E-O) per un torneo 
di bridge Mitchell. Prima di parlare 
delle possibilità che offre tale pro¬ 
gramma, spieghiamo più dettaglia¬ 
tamente il meccanismo che regola 
un torneo di bridge a coppie. 

Le coppie N-S seguono la numera¬ 
zione da 1 a ... N; le coppie E-O da 
101 a ... 100+N, dove N è il numero 


Listato 1. Il programma Bridge- Memorizza. 

10 D$ = CHR$ (4) 

12 DIM PP(25,120) 

13 DIM PA(41 ,3) : REM MATRICED 

EI PUNTEGGI E DELLE COPPIE D 
A INSERIRE 

30 22$ = "S" 

31 W = 0 

33 MM = 0 

34 MP = 0 

35 HOME 

36 INVERSE 
38 NORMAL 

3? PRINT : PRINT "PROGRAMMA PER 
IL CALCOLO DEGLI" 

41 PRINT "SCORES IN UN TORNEO MI 
TCHELL " 

44 VTAB 8: INVERSE : PRINT "VINO 
EN2 0 DELLE CAVE -1984 " 

50 VTAB 14: PRINT "1) GESTIONE T 
ORNEO" 

53 PRINT : PRINT "2) VISUALI22A2 
IONE MANI" 

55 PRINT : PRINT "3) FINE" 

56 NORMAL 

5? VTAB 23: INPUT "SCEGLI FRA LE 
SEGUENTI 0P2I0NI ";KK$ 

60 KK = VAL <KK$> 

62 IF KK = 1 THEN 197 

64 IF KK = 2 THEN 8500 

66 IF KK = 3 THEN 9000 

70 GOTO 35 

197 REM 

207 REM 

217 REM 

227 HOME 

237 INPUT "N.RO MANI GIOCATE <B0 
ARDS) ";N 

240 IF N > 40 THEN HOME : GOTO 
237 
247 REM 

257 INPUT "DA QUANTE COPPIE E' S 
TATA GIOCATA OGNI MANO ? ";X 
260 IF X > 21 THEN HOME : GOTO 
257 
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dei tavoli presenti. 

Supponiamo, per portare un esem¬ 
pio, che il torneo preveda 20 tavoli; 
che ogni turno di gioco sia costituito 
da una mano, e che vengano giocate 
15 mani. All’inizio del torneo al ta¬ 
volo n. 1 si incontreranno le coppie 1 
e 101; al tavolo n. 2 le coppie 2 e 102 
e così via. Le coppie N-S siederanno 
allo stesso tavolo per tutta la durata 
del torneo; le coppie E-O, invece, al 
termine di ogni turno di gioco (costi¬ 
tuito da una o più mani) giocheran¬ 
no al tavolo successivo. 

All’inizio del torneo, ad ogni tavolo, 
verrà smazzata e giocata una mano; 
si procederà quindi a registrare su 
un apposito score i seguenti dati: 
numero della coppia N-S, il contrat¬ 
to giocato, il risultato conseguito e, 
infine, il numero della coppia E-O. 
Le carte verranno quindi inserite in 
un “board” cosicché la stessa mano 
verrà giocata successivamente agli 
altri tavoli. Ai termine di ogni turno 
di gioco, come già detto prima, le 
coppie E-O giocheranno al tavolo 
immediatamente successivo, mentre 
le coppie N-S rimarranno allo stesso 
tavolo e consegneranno al tavolo 
precedente il board contenente le 
carte appena giocate e lo score. Se¬ 
guiamo, per esempio, come si pre¬ 
senterà al termine del torneo lo sco¬ 
re della mano n. 5, giocata al primo 
turno del torneo al tavolo n. 5 dalle 
coppie 5 e 105. Poiché tale mano al 
secondo turno verrà giocata al tavo¬ 
lo 4 (si ricorda che le coppie E-O 
“salgono di tavolo” e i board “scen¬ 
dono”) dalla coppia N-S 4 e dalla 
coppia E-O 103 è infatti questo il 
numero della coppia E-O che al pri¬ 
mo turno sedeva al tavolo 3 , al ter¬ 
mine del secondo turno lo score n. 5 
avrà il seguente aspetto: 

Coppia Contr. Ris. Coppia 

N-S E-O 

5 x x 105 

4 x x 103 

Seguitando quindi con lo stesso ra¬ 
gionamento, è facile capire come si 
presenterà lo score alla fine del tor¬ 
neo, sia per quanto riguarda le copie 
N-S sia per le coppie E-O: 



Seguito listato Bridge. 

267 REM 
270 RIC = X 
277 PUNTMED = X - 1 
287 XX = X + 5 

297 INPUT "QUANTI TAVOLI SONO ? 

ii . yy 

300 IF YY > 40 THEN HOME : GOTO 
297 

307 NUM = INT < YY / 2) 

317 FLAG = YY - INT < YY / 2) * 2 
: REM FLA6=1 TAVOLI DI SPAR 
I,FLAG=0 TAVOLI PARI 
327 REM 
337 REM 
347 REM 
357 REM 
367 REM 
377 REM 
387 REM 
397 REM 
407 REM 
417 REM 
427 REM 
437 REM 
467 REM 
477 REM 
487 REM 

493 REM 

494 REM 
496 REM 

499 REM INIZIO ROUTINE NUOVA 

500 FOR NB = 1 TO N 
510 HOME 

515 INVERSE : HTAB 15: PRINT "BO 
ARD N. ";NB: NORMAL : PRINT 
: PRINT : PRINT 

520 INPUT "NUMERO PRIMA COPPIA N 
-S ";KK$ 

530 PA<1,1) = VAL < KK$) 

540 VTAB 10: PRINT "OK? ": GET 
KK* 

550 IF KK* = "N" THEN 510 
560 IF KK* < > "S" THEN 540 

570 PA<1 ,3) = PA<1,1> + 100 
530 GOSUB 6000 
590 FOR I = 1 TO X 
600 PP<I,NB * 3 - 2) = PA(I,1) 

610 PP<I,NB * 3> = PA<I,3) 

620 NEXT I 
630 PRZ = 0 
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5 

4 

105 

103 

Seguilo listalo Bridge. 



3 

101 

635 

FOR I = 1 TO XiPAd 

,2) = 888 

2 

119 


8: NEXT I 



1 

117 

640 

GOSUB 5000 



20 

115 

650 

FOR I = 1 TO RIC 



19 

113 

660 

PP<I,NB * 3 - 1 ) = 

PA<I,2) 

18 

111 

670 

NEXT I 



17 

109 

680 

NEXT NB 



16 

107 

690 

GOSUB 3000 



15 

104 

700 

IF MP = 0 THEN 910 


14 

102 

710 

PRZ = Rie 



13 

120 

720 

FOR NB = 1 TO N 



12 

118 

730 

HOME. 



1! 

116 

750 

FOR I = 1 TO X 



Notate quello che è successo al ter- 

760 

PACI,1) = PP<I,NB 

* 

3-2) 

mine del decimo turno, cioè esatta- 

770 

PA<1,3) = PP<1,NB 

* 

3) 

mente a metà torneo. Dopo la cop- 

780 

NEXT I 



pia 107 il board è passato per la 

790 

FOR I = 1 TO RIC 



giocata alla coppia 

104 e non alla 

800 

PA<1,2) = PP<I,NB 

* 

3-1) 

coppia 105: infatti la coppia 105 ave- 

810 

NEXT I 



va già giocato questa mano all’inizio 

815 

FOR I = RIC + 1 TO 

X :PA<I,2) 


del torneo! Per evitare questo incon¬ 
veniente è necessario che nel caso di 
un torneo con un numero pari di 
tavoli (N), dopo N/2 turni di gioco, 
e solamente in questo turno, si mo¬ 
difichi lo spostamento delle coppie 
E-O che “salteranno un tavolo” co¬ 
sicché, nel nostro esempio, la coppia 
105 che ha giocato il decimo turno al 
tavolo 14, giocherà l’undicesimo 
turno al tavolo 16 e non al tavolo 15, 
dove si siederà invece la coppia pro¬ 
veniente dal tavolo 13, che è appun¬ 
to la coppia 104. Nel caso invece, in 
cui il torneo sia costituito da un nu¬ 
mero dispari di tavoli, questo incon¬ 
veniente non si presenta. 

Al termine del torneo, vengono 
raccolti gli score ed ogni coppia ot¬ 
tiene in ciascuna mano un punteggio 
in funzione, ovviamente, del risulta¬ 
to conseguito. 

Chiusa questa non breve, ma neces¬ 
saria parentesi introduttiva, vedia¬ 
mo quali sono le caratteristiche del 
programma che per questioni di me¬ 
moria è stato suddiviso in due mo¬ 
duli distinti: il primo modulo, deno¬ 
minato Bridge-Mcmorizza, è pre¬ 
sentato nel listato-1 e gestisce l’input 
degli score memorizzando in un file 
(file torneo) i risultati ottenuti dalle 
varie coppie. 


820 

830 

840 

850 

860 

865 

870 

910 

5000 

5010 

5030 


= 8388: NEXT 
GOSUB 5000 
FOR I = RIC + 


1 


*3-1) 


PP<I,NB 
NEXT I 
NEXT NB 
RIC = X 
GOSUB 8000 
GOTO 8705 
HOME 

ZZ* = "N-S PUNTEGGIO 
BOARD N." 

INVERSE : PRINT ZZ* 
9: VTAB 1: PRINT NB: 


TO X 

= PA< I,2) 


E-0 

ì HTAB 3 
NORMAL 


5040 FOR I = 1 TO X 
5050 VTAB I + 1 : HTAB 1 : PRINT P 
A< I , 1 ) 

5055 VTAB I + 1: HTAB 8: IF PACI 

,2) = - 9999 THEN PRINT "M 

": GOTO 5070 

5056 UTAB I + 1: HTAB 8: IF PA<I 

,2) = 8888 THEN PRINT " ": GOTO 
5070 

5060 VTAB I + 1: HTAB 8: PRINT P 
A<I,2) 

5070 VTAB I + 1: HTAB 15: PRINT 
PA<I,3) 

5080 NEXT I 

5090 HTAB 31: VTAB 23: PRINT "OK 
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Tale file verrà successivamente ela¬ 
borato dal secondo modulo che si 
chiama Bridge-Conti e che presente¬ 
remo nella prossima puntata. 


Possibilità del programma 

Il programma prevede la gestione 
di un torneo costituito da un massi¬ 
mo di 40 tavoli: possono essere gio¬ 
cate al massimo 40 mani e sono pre¬ 
visti come massimo 21 turni di gio¬ 
co. Questo ultimo limite è reso ne¬ 
cessario non da questioni di memo¬ 
ria, ma da problemi che sorgono 
nella gestione della maschera video 
dello score. Il numero di mani gioca¬ 
te, invece, è bene che non sia supe¬ 
riore a 30, questo limite deriva inve¬ 
ce da problemi di stampa (è infatti 
prevista come output, oltre alla clas¬ 
sificazione finale, anche la stampa di 
due prospetti contenenti per ogni 
coppia N-S ed E-0 il punteggio otte¬ 
nuto in ciascuna mano; tale prospet¬ 
to occuperebbe più di 132 colonne 
per un numero di mani superiore a 
30 e risulterebbe perciò illeggibile; 
non sorgono viceversa problemi per 
la stampa della classifica finale). Sa¬ 
rebbe stato possibile, modificando 
la maschera di INPUT c la stampa 
del prospetto finale, superare ab¬ 
bondantemente tali limiti, ma ho 
preferito privilegiare la fase di inse¬ 
rimento dati e la stampa degli stessi, 
anche se ciò limita di fatto le appli¬ 
cazioni del programma. D’altra par¬ 
te, nonostante tali restrizioni, è pos¬ 
sibile usare questo programma per 
elaborare i conti di oltre il 90% dei 
tornei che si svolgono nei circoli. 

Come già detto, questa prima 
parte del programma cura esclusiva- 
mente Pinserimento dei dati e con¬ 
sente, una volta inseriti tutti gli sco¬ 
re, di verificare la loro esattezza ed 
eventualmente di modificarli. L’a¬ 
spetto forse più interessante, è la 
possibilità di registrare i dati in mo¬ 
do parziale; ad esempio, se ogni sco¬ 
re contiene 20 risultati, è possibile 
inserire una prima volta i primi 18 
risultati di tutti gli score e successi- 
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51 10 

FOR I = PRZ T0 X - 1 

5120 

UTAB 1+2: HTAB 8 

5130 

INPUT "";KK$ 

5131 

HTAB 15: UTAB 1+2: PRINT 

PACI + 1,3) 

5132 

IF KK* = "" AND PACI + 1,2) 

= - 9999 THEN HTAB 3: UTAB 

I + 2: PRINT "M": HTAB 15: UTAB 

1+2: PRINT PACI + 1,3): GOTO 

51 70 

5133 

1F KK* = "" AND PACI + 1,2) 

= 8888 THEN HTAB 8: UTAB I 
+ 2: PRINT 11 ■ : HTAB 15: UTAB 

1+2: PRINT PACI + 1,3): GOTO 

• 

5170 

5134 

IF KK* = "“ THEN HTAB 8: UTAB 

1+2: PRINT PACI + 1,2): HTAB 

15: UTAB I + 2: PRINT PACI + 

1,3): GOTO 5170 

5140 

IF KK* = CHR* C 6) THEN MP = 

1:RIC = I - PRZ: GOTO 5180 

5150 

IF KK* = "M" THEN PACI + 1, 

2) = - 9999: GOTO 5170 

5160 

PACI + 1,2) = UAL CKK*) 

5170 

NEXT I 

5130 

UTAB 23: HTAB 34 

5190 

GET KK* 

5200 

IF KK* = "N" THEN 5110 

5210 

IF KK* < > "S" THEN 5190 

5220 

RETURN 

6000 

REM CALCOLA COPPIE N-S 

6020 

FOR I = 1 TO X - 1 

6030 

IF PACI,1) < >1 THEN PACI 

+ 1,1) = PACI,1) - 1 : GOTO 

6050 

6040 

PACI + 1,1) = YY 

6050 

NEXT I 

6060 

REM CALCOLA COPPIE E-0 

6070 

IDEA = 0 

6080 

FOR I = 1 TO X - 1 

6090 

IF I = NUM THEN IDEA = 1: GOTO 

6120 

6100 

IF FLAG = 1 THEN IDEA = 0 

6110 

GOTO 6140 

6120 

IF FLAG = 1 THEN IDEA = 0 

6130 

IF PAC1,3) = 103 GOTO 6220 

6140 

IF PACI,3) = 101 GOTO 6180 

6150 

IF PAC1,3) = 102 GOTO 6200 

6160 

PACI + 1,3) = PAC1,3) - 2 - 
IDEA 


60 
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vamente gli ultimi due. Questo per¬ 
mette di ridurre di molto l’intervallo 
di tempo che intercorre tra il termi¬ 
ne del torneo e i risultati finali. (È 
ovviamente necessario, in questo ca¬ 
so, fornire i tavoli con score in dupli¬ 
ce copia e ritirare la prima copia al 
diciottesimo turno). 

All’inizio, il programma chiede il 
numero di mani giocate, il numero 
di turni di gioco (da quante coppie 
cioè è giocata ogni mano) e il nume¬ 
ro di tavoli. 

Successivamente, per ogni mano 
giocata, è sufficiente inserire esclusi¬ 
vamente il numero della prima cop¬ 
pia N-S e i risultati conseguiti da 
tutte le coppie. Nel caso in cui, in 
una mano, sia stato attribuito dal 
direttore un punteggio medio, è ne¬ 
cessario digitare M, o un valore po¬ 
sitivo se il risultato è positivo per 
N-S, oppure un valore negativo se il 
risultato è positivo per E-O. 

Nel caso in cui si desideri una me¬ 
morizzazione parziale dei risultati, 
si deve digitare, durante l'inserimen¬ 
to, CONTROL F. 

Nota : è necessario in questo caso, 
memorizzare lo stesso numero di ri¬ 
sultati per tutte le mani. 

Una volta terminata la fase di inseri¬ 
mento vengono memorizzati i risul¬ 
tati, e il controllo del programma 
passa alla seconda routine Bridge- 
Conti che elabora i dati c fornisce la 
stampa dei risultati. 

La seconda possibilità offerta dalla 
routine Bridge-Memorizza è quella 
di rivedere ed eventualmente correg¬ 
gere i risultati delle mani che sono 
già state memorizzate. È sufficiente 
in tal caso, dopo aver selezionato 
l’opzione 2), visualizzazione mani 
del menu principale, digitare il nu¬ 
mero della mano che si desidera ri¬ 
vedere, oppure RETURN per rive¬ 
dere tutte le mani. 

N.B.: è consigliabile, ma non neces¬ 
sario, dettare gli score in ordine a 
partire dallo score n. 1, in quanto, il 
programma attribuisce ad ogni sco¬ 
re, un numero progressivo a partire 
dal primo score dettato, cosicché 
esiste una corrispondenza binumeri- 
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61 70 

GOTO 6230 

6130 

PA<I + 1,3) = 100 + YY - 1 - 
IDEA 

6190 

GOTO 6230 

6200 

PA<I + 1,3) = 100 + YY - IDE 

A 

6210 

GOTO 6230 

6220 

PA<I + 1,3) = 100 + YY - FLA 

G * < YY - 1 ) 

6230 

IDEA = 0 

6240 

NEXT I 

6250 

RETURN 

8000 

PRINT : PRINT D*;"GPEN TQRN 

EO" 

8010 

PRINT D*;" DELETE TORNEO" 

8020 

PRINT D* ;" OPEN TORNEO" 

8030 

PRINT D*;"WRITE TORNEO" 

8040 

FOR J = 1 TO N * 3 

8050 

FOR I = 1 TO RIC 

8060 

PRINT PP<I,J) 

8070 

NEXT I : NEXT J 

8090 

PRINT D* ;" CLOSE TORNEO" 

8091 

PRINT : PRINT D*;"OPEN DATI 

II 

8092 

PRINT D* ;" DELETE DATI" 

8093 

PRINT D* ;" OPEN DATI" 

8094 

PRINT D*;"WRITE DATI" 

8095 

PRINT X: PRINT N: PRINT YY 

8096 

PRINT D* 5 "CLOSE DATI" 

8100 

RETURN 

8500 

REM 

8501 

PRINT : PRINT D*"0PEN DATI" 

8502 

PRINT D* " READ DATI" 

8504 

INPUT X: INPUT N: INPUT YY 

8505 

PRINT D*"CLOSE DATI" 

8520 

HOME : UTAB 15: INPUT "BATT 

I IL N.DELLA MANO DA VISUALI 

2ZARE " ;KK* 

8525 

KK = UAL <KK*> 

3530 

IF KK > N THEN PRINT "NON 

C'E' !!": GET KK*: GOTO 8520 

3540 

PRINT : PRINT D*;"OPEN TORN 

EO" 

8550 

PRINT D*;"READ TORNEO" 

8560 

FOR J = 1 TO N * 3 

8570 

FOR I = 1 TO X 

8580 

INPUT PP<I , J) 

8590 

NEXT I : NEXT J 

8600 

PRINT D*;"CLOSE TORNEO" 

8601 

REM 

3610 

IF KK* = "" THEN 8800 

8620 

FOR I = 1 TO X 

8630 

PA<1,1) = PP<I , KK * 3 - 2) 

8640 

PA<I ,2) = PP<I , KK * 3 - 1 ) 

8650 

PA<I ,3) = PP<I , KK * 3) 

8660 

NEXT I 

8670 

NB = KK 
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Torneo 
di bridge 




3680 

GOSUB 5000 Seguito listato bridge 


8690 

RIC ■ X 


8700 

GOSUB 8000 


8701 

HOME : PRINT "UUOI I CONTI? 

■ : GET KK* 


8703 

IF KK* = "N" THEN 8710 


8704 

IF KK* < > 11 S" THEN 8701 


8705 

HOME s INVERSE : PRINT "ATT 

ENDERE PER I CONTI": NORMAL 
: PRINT : PRINT D*;"RUN BRIO 

GE-CONTI" 


8710 

GOTO 35 


8800 

FOR NB = 1 TO N 


8810 

FOR 1 = 1 TO X 


8820 

PA<I,1) = PP<I,NB * 3 - 2) 


8830 

PA<I,2) = PP<I,NB * 3 - 1) 


8840 

PA<I,3> = PP<I,NB * 3) 


8850 

NEXT I 


8860 

GOSUB 5000 


8870 

NEXT NB 


8880 

RIC = X 


8890 

GOSUB 8000 


8895 

GOTO 8701 


9000 

HOME 


10000 

HOME 


ca tra il numero effettivo dello score 
e il numero fittizio attribuito allo 
score, dal programma. 

Il listato 

10-307 - Presentazione menu ed in¬ 
put dati. 

317 - La variabile FLAG è necessa¬ 
ria per identificare se i tavoli sono 
dispari o pari, per il motivo citato 
all’inizio dell’articolo. 

429-480 - Routine principale (N.B.: 
numero di mani). 

720-860 - Routine eseguita solo in 
caso di memorizzazione parziale, 
per memorizzare la seconda fase dei 
dati. Subroutine principali. 
5000-5220 - Subroutine di visualiz¬ 
zazione che effettua una codifica per 
le mani medie, dove viene digitato 
M e memorizzato - 9999. 

8888 è invece la codifica dello spa¬ 
zio. Per la visualizzazione dello sco¬ 
re si è usata una matrice con un 
numero di righe pari al numero di 
turni giocati, e 3 colonne (coppia 


N-S, risultato, coppia E-O); (matri¬ 
ce PA(). 

6000-6250 - È la routine che permet¬ 
te il calcolo delle coppie N-S ed E-O 
dello score in funzione della prima 
coppia N-S. La variabile IDEA ser¬ 
ve per il calcolo della coppia E-O al 
momento del cambio critico (metà 
torneo) nel caso di numero pari di 
tavoli. 

8000-8100 - Registrazione del File 
Torneo e File Dati contenenti ri¬ 
spettivamente gli score del torneo c i 
dati principali del torneo e cioè, nu¬ 
mero di turni, numero di mani gio¬ 
cate, numero di tavoli. Questi due 
file saranno utilizzati successiva¬ 
mente dal programma Bridge- 
Conti. 

8520-9000 - Routine di visualizza¬ 
zione della singola mano (usata per 
verificare e modificare eventuali er¬ 
rori di battitura). 

Se si desidera rivedere tutte le mani 
si deve rispondere battendo RE¬ 
TURN alla domanda “inserisci nu¬ 
mero mani da visualizzare”. ■ 
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Quali sono i pacchetti e i libri di 
informatica più venduti in Italia? 

È proprio vero che tutti vogliono 
un home computer? 

Lotus 1-2-3 è solo una moda? 

Apple II C è veramente 
compatibile con II E? 

Chi copia il software? 

Come fare business con il software? 


A QUESTE 
E MOLTE ALTRE 
DOMANDE RISPONDE Svi v 




Il primo mensile italiano per chi vende home e personal 
computer, software, libri e accessori di informatica. 
Uno strumento utilissimo per chiunque si interessi di 
personal e home computer. Su Soft Dealer, il nuovo 
mensile della PROGRAM EDITRICE, inviato solo in 
abbonamento, troverete tutte le notizie più utili, recen¬ 
sioni, test, prove di software, articoli di marketing, clas¬ 
sifiche dei migliori programmi esistenti sul mercato. 


UN ABBONAMENTO A VVl V 

È UN INVESTIMENTO PER IL FUTURO. APPROFITTA 
DELL’ECCEZIONALE OFFERTA DI LANCIO. 
RICEVERAI GRATIS I PRIMI TRE NUMERI DEL 1984. 

Per abbonarsi basterà compilare il modulo pubblicato 
qui sotto, allegando assegno di L. 25.000, e inviarlo a 
PROGRAM EDITRICE S.r.l. Via Melchiorre Gioia, 114 - 
20125 Milano. 

SOFT DEALER è un'idea 

Uffici Tecnici e Commerciali: 
20125 Milano - Via M. Gioia, 114 
Tel. (02) 603415-680851 

Desidero sottoscrivere un abbonamento a 10 nume¬ 
ri (L. 25.000) alla rivista SOFT DEALER, da gen- • 
naio a dicembre 1985. 

In questo caso mi saranno inviati in omaggio i 
primi tre numeri del 1984. 

Allego assegno di L. 25.000 intestato a PROGRAM 
EDITRICE 

n°.Banca. 

Ho effettuato pagamento tramite vaglia postale. 


□ 

□ 

□ 


PROGRAM 

.editrice 


NOME 



COGNOME 

AZIENDA 

VIA. 

C.A.P. 



N° 


CITTA 1 



















A tterraggio 
pericoloso per TI99 


Un appassionante gioco 
di simulazione 


di Mauro Cristuib Grizzi 


Q uesto programma è stato 
scritto per il TI 99/4A 
fornito di modulo SSS Ex- 
lended BASIC. Consiste in una si¬ 
mulazione di atterraggio guidato 
dal controllore di volo in condizioni 
di totale assenza di visibilità sulla 
pista. Ci si dovrà basare quindi solo 
sulle indicazioni dèlio schermo ra¬ 
dar, e su quelle che ci pervengono 
via radio dal velivolo circa la sua 
rotta, velocità, quota, carburante e 
distanza dalla torre di controllo. Va¬ 
lutati istante per istante tutti questi 
parametri, dovremo fornire al pilota 
le indicazioni sulle operazioni da ef¬ 
fettuare: modifica dell’inclinazione 
degli alettoni, potenza ai motori e 
variazioni di rotta tramite il timone 
deH’aereo. 

Quasi tre quarti dello schermo del 
televisore sono occupati dal radar 
con i riferimenti assoluti delle quat¬ 
tro direzioni cardinali, mentre nella 
parte inferiore sono visualizzate le 
variabili di volo in continuo aggior¬ 
namento, insieme a tre “spie” di 
controllo che indicano, con il loro 
colore, il range di variazione su cui 
sono regolati la manetta del gas, il 
timone e gli alettoni. 

All’inizio della simulazione l’aereo 
si troverà in un pùnto all’estremità 
dello schermo radar, con una rotta 
casuale. I comandi per alettoni e po¬ 
tenza ai motori sono regolati in po¬ 
sizione neutra: alettoni orizzontali e 
gas zero; il velivolo pertanto rimarrà 


Listato 1. Il programma Atterraggio 
pericoloso. 

100 GOTO 120 

110 CALL SOUND (1,300,5) : : RE 
TURN 

120 CALL CLEAR :: CALL SCREE 
N(2): : CALL CHAR(136,""): : C 
ALL COLOR(14,10,10): : FOR 1 = 

2 T0 10 : : CALL COLOR(1,2,10 
) : : NEXT I 

130 FOR 1 = 65 TO 88 : : CALL C 
HARPAT(I,A$) : : CALL CHAR(1 + 3 
1,A$): : NEXT I :: FOR 1 = 9 TO 
.11 :: CALL COLOR(1,2,8) : : N 

EXT X 

140 FOR 1=8 TO 20 STEP 2 :: 
FOR J=8 TO 22 :: CALL HCHAR( 

I,J,136): : NEXT J :: GOSUB 1 
10 :s FOR J=22 TO 8 STEP -1 
:: CALL HCHAR(I+1,J,136) 

150 NEXT J : : GOSUB 110 : : N 
EXT I 

160 A$="l01OATTERRAGGIO" :: 
GOSUB Ilio :: A$ = "l111 PERICO 
LOSO" :: GOSUB Ilio :: A$="l 
51 1 BYHMAURO" : : GOSUB 1 1 1*0 
170 A$="l611CRISTUIB" :: GOS 
UB 1110 

180 CALL CHAR(120,""): : CALL 
COLOR(l2,8,8): : FOR 1 = 1 TO 
5 STEP 2 :: FOR J=10 TO 30 : 

: CALL HCHAR(I,J,120): : NEXT 
J :: GOSUB 110 :: FOR J=30 
TO 10 STEP -1 

190 CALL HCHAR (1+1,J,120): : 
NEXT J : : GOSUB 110 : : NEXT 


1 :: A$="0312sdw'rxhmrsqtldm 

sr" :: GOSUB 1110 :: A$="041 
6bnlotsdq" :: GOSUB 1110 
200 FOR C=30 TO 8 STEP -1 :: 

CALL VCHAR(1,C,32,24) : : FOR 
W=1 TO 10 :: NEXT W :: NEXT 
C 

210 CALL CHARSET : : CALL CLE 
AR :: FOR 1=48 TO 57 :: CALL 
CHARPAT(I,A$) : : CALL CHAR(I 
+49,A$): : NEXT I :: Ri=15 :: 
Gl =1 :: A5=-l 

220 CALL COLOR(0,16,1,2,16,1 
,3,16,1,4,16,1,9,2,13,10,2,1 
3,11,13,1,12,2,15,14,16,1) 
230 FOR 1 = 5 TO 8 : : CALL COL 
OR(1,8,1): : NEXT I 

2 40 CALL SCREEN(2): : CALL CH 
ARPAT(96,A$,35,B$):: CALL CH 
AR(136,A$,143,B$) : : CALL CHA 
R(112,"007F7F7F7F7F7F7F") 

250 FOR 1=3 TO 15 STEP 2 :: 
FOR J=1 TO 17 :: CALL VCHAR( 
J,1,112):: CALL VCHAR(J,33-1 
,112):: NEXT J :: GOSUB 110 
:: FOR J=17 TO 1 STEP -1 :: 

CALL VCHAR(J,1+1,112 

) 

260 CALL VCHAR(J,32-1,112): : 
NEXT J : : GOSUB 110 : : NEXT 
I 

270 CALL CHAR(128,"101038549 
21 03 81 01 0381 092 54381 01 0001 00 
844FF44081 000081 022FF221 008" 

) 

280 CALL CHAR(132,"80403E302 
A242A2001027C040C542454A444A 


9 

alla stessa quota diminuendo pro¬ 
gressivamente la sua velocità. Spo¬ 
stando gli alettóni sulla posizione a 
scendere di uno o due punti, dimi¬ 
nuirà la quota, ma aumenterà la ve¬ 
locità per effetto della discesa. 

Viceversa, ponendo gli alettoni in 
posizione di salita si produrrà un 
recupero di quota con una conse¬ 
guente diminuzione di velocità. La 
velocità può essere mantenuta co¬ 
stante (oppure aumentata o dimi¬ 
nuita) agendo sulla regolazione del 
gas in combinazione con la posizio¬ 
ne degli alettoni. La pista di atter¬ 
raggio si sviluppa sulle due direttrici 
perpendicolari 0-180 gradi e 90-270 


gradi, con una lunghezza totale di 
circa 16 Km. Potrete atterrare solo 
imboccando esattamente la pista, e 
a questo scopo verrà visualizzato il 
messaggio ON LINE quando vi tro¬ 
verete esattamente su una delle due 
direttrici della pista. Per atterrare 
senza schiantarsi occorre avere i se¬ 
guenti valori dei parametri di volo: 

• Velocità da 120 km/h a 

200 km/h; 

• Quota 0 metri; 

• Rotta 180/0 oppure 

90/270. 

L’aereo ha una velocità di stallo (ve¬ 
locità minima possibile in volo) di 
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Seguito programma Atterraggio. 

41 404 7C0201 25222 52 82 03E4 080" 

) 

290 CALL CHAR(48,"001C22262A 
32221C"): : CALL CHAR(127,"49 
C9000 OC90000C9") 

300 CALL CHAR(137,"003098FE9 
83000000000003C000000004428F 
83C12698402") 

310 CALL CHAR(123,"494941 41 4 
9494141OOFF0000990000FF41414 
94941414949007F00004C00007F" 
) 

32 0 CALL CHARPAT(82,A$): : CA 
LL CHAR(40,A$,113,A$): : CALL 
CHARPAT( 71 , A$ , 65, B$ ) : : CALL 
CHAR(41,A$,114,A$,42,B$,115 
,B$) 

330 CALL DELSPRITE(ALL) : : CA 
LL MAGNIFY (1) : : RANDOMIZE :: 
GOSUB 850 :: D=110 :: V=450 
:: H=3000 :: A=0 :: G=0 :: 
T=R : : F=1500 

340 L=INT(4*RND)+1 :: IF L=1 

THEN X=(230*RND)+8 :: Y=2 : 

: R=INT(9.1*RND)*10 
350 IF L=3 THEN X=8 :: Y=(13 
0*RND)+8 :: R=INT(18.1*RND)* 
1 0 

360 IF L=4 THEN X=238 :: Y=( 

130*RND)+8 :: R=INT(18*RND)* 
10+180 

370 IF L=2 THEN X=(230*RND)+ 
8 :: Y=130 :: R=INT(9*RND)* 1 
0+90 

380 CALL SPRITE(#1,129,16,Y, 


X) 

390 P=1500 :: Al=Al+l :: IF 
R>330 OR R<30 THEN CODE=l29 

400 IF R>150 AND R<210 THEN 
CODE=l28 

410 IF R>=30 AND R<=60 THEN 
CODE=134 

420 IF R>=210 AND R<=240 THE 
N CODE=132 

430 IF R> = 300 AND R< = 330 THE 
N CODE=l35 

440 IF R>60 AND R<120 THEN C 
ODE=l30 

450 IF R>240 AND R<300 THEN 
CODE=131 

460 IF R>=120 AND R<=150 THE 
N CODE=l33 

470 H=H-A*.25*(V/6): : F=F-10 
-ABS(G*.25)*10+A :: V=V-15+G 
*5+5*A :: S=((V/3.6)*15)/400 
:: X=X+S*COS(PI/2-R/57.32): 

: Y=Y+S*SIN(PI/2-R/57.32) 

480 CALL PATTERN(#1 ,CODE) : : 
DQ=(ABS(X-l22))"2+(ABS(Y-64) 
)~2 :: D=SQR(ABS(DQ)): : IF F 
<0 THEN F=0 

490 A3=A3+1 :: CALL SOUND(1, 
1000,0):: CALL LOCATE(#1,Y,X 
):: GOSUB 990 :: IF H<1 THEN 
H=0 

500 GOSUB 1020 :: IF H=0 AND 
D<=8.9 AND V<=200 THEN 740 

510 IF H=0 AND V>200 THEN 83 
0 

520 IF (INT(RND*4)+50/H)>=5 


120 km/h. quindi attenzione a non 
rallentare troppo! 

Comandi sulla tastiera 
Rotta 

• Tasto “9”: la pressione di questo 
tasto provoca il cambiamento del 
set di variazione della rotta a secon¬ 
da del colore assunto dalla spia “R”. 
Spia di colore bianco: variazioni di 
rotta di 30 gradi alla volta. Spia di 
colore verde: variazioni di rotta di 5 
gradi alla volta. 

• Tasto “S”: diminuzione di rotta. 
Provoca una diminuzione del valore 
in gradi della rotta di 5 o di 30 gradi 


alla volta a seconda del colore della 
spia “R”. 

• Tasto “D": aumento di rotta. Pro¬ 
voca un aumento del valore in gradi 
della rotta di 5 o di 30 gradi a secon¬ 
da del colore della spia “R”. 

Gas 

• Tasto “0”: la pressione di questo 
tasto provoca il cambiamento del 
set di variazione della manetta del 
gas a seconda del colore assilnto dal¬ 
la spia “G”. Spia di colore bianco: 
variazione della posizione della ma¬ 
netta del gas di 3 unità alla volta. 
Spia di colore verde: variazione di 1 
unità alla volta. 

• Tasto “>”: aumento di gas. Pro¬ 


voca un aumento di potenza ai mo¬ 
tori di un numero di unità dipenden¬ 
te dal colore corrente della spia 
“G” 

• Tasto “<": diminuzione di gas. 
Provoca una diminuzione di poten¬ 
za ai motori di un numero di unità 
dipendente dal colore corrente della 
spia “G”. Se il valore del gas è già 0. 
la pressione di questo tasto non ha 
alcun effeto. 

Alettoni 

• Tasto “=": la pressione di questo 
tasto provoca il cambiamento del 
set di variazione della posizione de¬ 
gli alettoni a seconda del colore as¬ 
sunto dalla spia “F”. Spia di colore 
bianco: variazione della posizione 
degli alettoni di 3 unità alla volta. 
Spia di colore verde: variazione di I 
unità alla volta. 

• Tasto “E”: aumento di quota. 
Provoca una variazione della posi¬ 
zione degli alettoni (a salire) di una 
quantità dipendente dal colore cor¬ 
rente della spia “F”. 

• Tasto “X”: diminuzione di quota. 
Provoca una variazione della posi¬ 
zione degli alettoni (a scendere) di 
una quantità dipendente dal colore 
corrente della spia “F”. 


Altri comandi 

• Tasto ENTER : la pressione di 
questo tasto provoca una istantanea 
inversione di rotta di 180 gradi se ci 
si trova sulla direttrice 0-180 gradi, 
altrimenti non è attivato. 

• Barra spaziatrice: la sua pressione 
permette l’inserimento di tutti i pa¬ 
rametri come input statici. E consi¬ 
gliabile usare questo sistema fino a 
che non si sia acquistata una buona 
capacità di controllo di tutti i para¬ 
metri di volo. 

Tutti gli altri tasti non sono attivati, 
ad eccezione di Fctn (4) con funzio- 


65 









Atterraggio 
pericoloso 
_per TI99 

ne di break. Dovete ovviamente 
mantenere la figura dell’aereo all’in¬ 
terno del vostro schermo video, pe¬ 
na un messaggio di BAD VALUED 
IN XX e l’arresto del programma. 
A caso potrà comparire, tanto per 
vivacizzare un po’ di più il gioco, un 
caccia nemico che cerca di colpirvi. 
NOTA BENE : il listato è stato otte¬ 
nuto usando una speciale codifica 
per i caratteri di controllo: quando 
trovate in una stringa un carattere 
sottolineato, ciò significa che dovre¬ 
te premere quel tasto insieme al ta¬ 
sto CONTROL. Ad esempio, “A” 
significa CONTROL+A. 


Alcuni commenti al listato 

120-200 Presentazione del gioco con 
definizione di caratteri speciali per 


avere un background color diverso 
da quello dello schermo. La stampa 
delle stringhe è ottenuta per segmen¬ 
ti al fine di ottenere un “effetto tele- 
scrivente”. 

210-320 Definizione dei caratteri 
speciali usati nella simulazione e dei 
loro colori. 

330-380 Definizione dei parametri 
iniziali di quota, velocità, distanza, e 
posizione iniziale dei vari comandi; 
scelta casuale della posizione radar 
in cui compare l’aereo all'inizio del 
gioco, e della sua rotta. 

390-460 Scelta della forma da asse¬ 
gnare allo SPRITE dell’aereo in fun¬ 
zione della sua direzione. 

470-480 Aggiornamento delle varia¬ 
bili di volo in funzione dei comandi 
dati o del tempo trascorso. 

490-570 Controllo sulle variabili di 
volo per accertare se deve essere vi- 



Seguito programma Atterraggio. 

AND D>8.9 THEN 810 
530 IF INT( Y)=65 OR INT(X)=1 
21 THEN DISPLAY AT(16,19)SIZ 
E(7) : "ON.-LINE" ELSE DISPLAY 
AT(16,19)SIZE(7):"ppppppp" 
540 IF F=0 THEN 780 
550 IF V<120 THEN 800 
560 IF H=0 AND D>8.9 THEN 83 
0 

570 IF V>1200 THEN V=1200 
580 VOLTA=0 :: VEL=15 :: IF 
INT(RND*1000)<15 THEN CALL S 
PRITE(#2,137,10,1+RND*100,1 + 
RND*150,VEL,5)ELSE 600 
590 GOSUB 1050 :: IF VOLTA>4 
THEN CALL DELSPRITE(#2)ELSE 
590 

600 CALL KEY (0,KEY,STATUS) : : 

IF STATUS=0 THEN 390 
610 IF KEY=32 AND Al>2 THEN 
GOSUB 960 :: Al=Al+1 :: GOTO 

390 

620 GOSUB 1 1 20 
630 IF KEY=13 AND(R=0 OR R=1 
80)THEN R=R+180 :: GOTO 390 
640 IF R>=360 THEN R=360-R 
650 IF R<0 THEN R=360+R 
660 IF KEY=83 THEN R=R-Rl : : 
GOTO 390 

670 IF KEY=68 THEN R=R+Rl : : 
GOTO 390 

680 IF KEY=69 THEN A=A-A5 :: 
GOTO 390 

690 IF KEY=88 THEN A=A+A5 : : 
GOTO 390 

700 IF KEY=44 THEN G=G-G1 
71 0 IF G<0 THEN G=0 


720 IF KEY=46 THEN G=G+G1 :: 

GOTO 390 
730 GOTO 390 

740 IF INT(Y)=65 OR INT(X)=1 
21 THEN 770 ELSE DISPLAY AT( 
1,1):"PISTA NON IMBOCCATA ! ! ! 
" :: P=-1500 :: GOSUB 1100 
750 CALL SOUND (1 000,200,0) : : 

FOR W=1 TO 1000 :: NEXT W 
760 GOSUB 990 :: GOTO 840 
770 DISPLAY AT(1,1):"ATTERRA 
GGIO RIUSCITO! COMPLIM 

ENTI!" :: CALL SOUND(2000,50 
0,0):: FOR W=1 TO 2000 :: NE 
XT W : : GOTO 840 
780 DISPLAY AT(1,1):"AEREO P 
RECIPITATO! ! ! CARBURA 

NTE FINITO!!" :: P=-1500 :: 
GOSUB 1100 

790 CALL SOUND(1 000,200,0) : : 
FOR W=1 TO 2000 :: NEXT W : 

: GOSUB 990 :: GOTO 840 
800 DISPLAY AT(1,1):"AEREO A 
NDATO IN STALLO!" :: GOSUB 1 
100 :: CALL SOUND (1 000,200,0 
):: FOR W=1 TO 2000 :: NEXT 
W :: P=-3000 :: GOSUB 990 :: 
GOTO 840 

810 DISPLAY AT(1,1):"AEREO S 
CHIANTATO SU OSTACOLO!!!" :: 

P=-2000 :: GOSUB 1100 
820 CALL SOUND (1 000,200,0): : 

FOR W=1 TO 2000 : : NEXT W : 

: GOSUB 990 :: GOTO 840 
830 DISPLAY AT(1,1):"AEREO S 
CHIANTATO AL SUOLO!!!" :: P= 
-2000 :: GOSUB 1100 :: CALL 
SOUND (1 000,200,0): : FOR W=1 
TO 2000 :: NEXT W :: GOSUB 9 


90 

840 A2,A3=0 :: CALL CLEAR :: 

PRINT "PUNTEGGIO=";P :: INP 
UT "VUOI RIPROVARE? ":A$ :: 
IF A$ = "SI" OR A$ = "si" THEN 2 
10 ELSE END 

850 DISPLAY AT(1,1)SIZE(3):" 
cba" :: DISPLAY AT(1,13)SIZE 
(3):"bia" :: DISPLAY AT(1,26 
)SIZE(3):"bfa" 

860 DISPLAY AT(5,1)SIZE(3):" 
cea" :: DISPLAY AT(5,26)SIZE 
(3):"bea" :: DISPLAY AT(9,1) 
SIZE(3):"cha" 

870 DISPLAY AT(9,27)SIZE(2): 
"ja" :: DISPLAY AT(13,1)SIZE 
(3):"daa" :: DISPLAY AT(13,2 
7)SIZE(2):"ga" 

880 DISPLAY AT(17,1)SIZE(3) : 
"dda" :: DISPLAY AT(17,27)SI 
ZE(2):"da" :: DISPLAY AT(17, 
14)SIZE(1):"a" 

890 CALL HCHAR(9,15,126) : : C 
ALL HCHAR(9,16,127): : CALL H 
CHAR(9,17,124) : : CALL HCHAR( 
8,16,123):: CALL HCHAR(10,16 
,125) 

900 DISPLAY AT(18,1):" OOOOOO 
OOOOOOOOOOOOOOOOOOOOOO " : : D 
ISPLAY AT(23,1):CHR$(40) : : D 
ISPLAY AT(23,4):CHR$(114):: 
DISPLAY AT(23,7):CHR$(115) 
910 DISPLAY AT(19,1)SIZE(8): 
"DISTANZA" :: DISPLAY AT(19, 
17)SIZE(3):"GAS" 

920 DISPLAY AT(19,14)SIZE(2) 

:"KM" :: DISPLAY AT(20,14)SI 
ZE(2):"MT" :: DISPLAY AT(20, 
26)SIZE(3):"KMH" :: DISPLAY 
AT(21,14)SIZE(2):"GR" 

930 DISPLAY AT(20,1)SIZE(5): 
"QUOTA" :: DISPLAY AT(20,17) 
SIZE(4):"VEL " 

940 DISPLAY AT(21,1)SIZE(5): 
"ROTTA" :: DISPLAY AT(21,17) 
SIZE(5):"FLAPS" 

950 DISPLAY AT(22,1)SIZE(10) 

:"CARBURANTE" :: DISPLAY AT( 
22,16)SIZE(1):"L" :: RETURN 
960 Al=0 :: A2=A2+1 :: ON WA 

RNING NEXT :: ACCEPT AT(19,2 
3)SIZE(3)VALIDATE(DIGIT) BEEP 
:G :: ACCEPT AT(21,23)VALIDA 
TE(NUMERIC)SIZE(3)BEEP:A :: 
T=R 

970 ACCEPT AT(21,10)SIZE(3)V 
ALIDATE(DIGIT)BEEP:R : : IF ( 
T=0 AND R=180)OR(T=180 AND R 
=0)THEN RETURN 

980 IF ABS(T-R)<=30 OR ABS(T 
-R)>=330 THEN RETURN ELSE 97 
0 

990 REM PUNTEGGIO 
1000 IF F<200 THEN P=P-100 
1010 P=P-100*A2-5*A3 :: DISP 
LAY AT(22,22)SIZE(2):"P=" :: 
DISPLAY AT(22,24)SIZE(6):P 
: : RETURN 

1020 DISPLAY AT(19,9)SIZE(4) 

:INT(D): : DISPLAY AT(20,8)SI 
ZE(5) :INT(H) : : DISPLAY AT(20 
,21)SIZE(5):V :: DISPLAY AT( 
21 ,9)SIZE(4):R 

1030 DISPLAY AT(19,23)SIZE(3 
):G : : DISPLAY AT(21,23)SIZE 
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Atterraggio 
pericoloso 
_per TI99 

sualizzato qualche messaggio. 
580-590 Apparizione casuale del 
caccia nemico. 

600-720 Analisi dei tasti premuti e 
conseguenti variazioni nei parame¬ 
tri. 

730-830 Ulteriori controlli sui para¬ 
metri. 

850-950 Visualizzazione schermo 
radar e dati di volo. 

960-980 Accettazione di input statici 
se viene premuta la barra spaziatri¬ 
ce. 

1000-1040 Display dei dati di volo 
sullo schermo. 

1050-1100 Apparizione del caccia 
nemico c controlli sulla sua traietto¬ 
ria e sui suoi spari. 

1120-1180 Controlli sui tasti di co¬ 
mando delle spie di rotta, gas ed 
alettoni. ■ 


Seguilo programma Atterraggio. 

( 3) : A :: IF F<200 AND F>180 
THEN 1040 ELSE DISPLAY AT(22 
, 11)SIZE(5) : INT(F) : : RETURN 
1040 FOR 1=1 TO 5 :: DISPLAY 
AT(22,11)SIZE(5): : FOR W=1 
TO 50 : : NEXT W : : DISPLAY A 
T(22 , 11)BEEP SIZE(5) : INT(F) : 
: FOR W=1 TO 50 s: NEXT W :: 
NEXT I : : RETURN 
1050 VOLTA=VOLTA+1 :: CALL P 
OSITION(#2,XP,YP):: CALL SPR 
ITE(#3,138,2,XP,YP,0,50) :: V 
EL=-.5*VEL :: CALL MOTION(#2 
, VEL,5) 

1060 CALL SOUND(1,210,0) : : F 
OR 1=1 TO 20 :: CALL COINC(# 
1 , #3,4,CO) : : IF CO=-l THEN 1 
080 

1070 NEXT I :: CALL DELSPRIT 

E ( #3) : : RETURN 

1080 CALL SOUND(1000 ,200,0): 

: DISPLAY AT(1,1):"AEREO ABB 
ATTUTO DA CACCIA SOVIETICI 


! ! !" : : GOSUB 1100 
1090 FOR W=1 TO 2000 :: NEXT 
W :: CALL DELSPRITE(#2, #3) : 

: P=0 :: GOTO 840 

1100 CALL POSITION(#l,XP,YP) 

:: CALL DELSPRITE(ALL): : CAL 
L SPRITE(#4,139,10,XP,YP) : : 
CALL MAGNIFY(2) : : RETURN 
1110 R=VAL(SEG$(A$,1,2)): : C 
= VAL(SEG$(AS,3,2)): : FOR L=5 
TO LEN(A$): : CALL HCHAR(R,C 
,ASC(SEG$(A$,L,1))): : C=C+1 
: : GOSUB 110 : : NEXT L : : RE 
TURN 

1120 IF KEY=57 AND Ri=15 THE 
N Ri=5 :: DISPLAY AT(23,1)SI 
ZE(1):CHRS(113):: GOTO 390 
1130 IF KEY=57 AND Ri=5 THEN 
Ri=15 :: DISPLAY AT(23,1)SI 
ZE(1):CHR$(4 0): : GOTO 3 90 
1140 IF KEY=4 8 AND Gl=3 THEN 
Gl=1 :: DISPLAY AT(23,4)SIZ 
E(1):CHR$(114): : GOTO 390 
1150 IF KEY=48 AND Gl=1 THEN 
Gl=3 :: DISPLAY AT(23,4)SIZ 
E(1):CHR$(41):: GOTO 390 
1160 IF KEY=61 AND A5=3 THEN 
A5=l :: DISPLAY AT(23,7)SIZ 
E(1):CHR$(115):: GOTO 39 
0 ; 
1170 IF KEY=61 AND A5=l THEN 
A5=3 :: DISPLAY AT(23,7)SIZ 
E(1):CHRS(42): : GOTO 390 
1180 RETURN 




IN MILANO - VIA MASCHERONI, 14 


IL VOSTRO 
“NUOVISSIMO” 
COMPUTER SHOP 

Libri e riviste di elettronica e informatica. 

CORSI CONTINUI 
TUTTO L’ANNO 
CON I MIGLIORI 
SOFTERISTI 



IL TELEFONO È 02-437.385 
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Quanto vale un 
Flexible Disc? 



Il valore di ogni Flexible Disc è II risultato della 
integrazione tra il dischetto ed il suo contenuto. 

Il contenuto è il prodotto della vostra intelligenza, del vostro la¬ 
voro, del vostro tempo. 

Il contenuto sono i dati che servono per informarvi sull'anda¬ 
mento della vostra Azienda e per permettervi di gestirla, che ren¬ 
dono fluide le procedure del vostro ufficio, che riempiono di se¬ 
renità e di divertimento il vostro tempo libero. 

Con Memorex il contenuto del vostro Flexible Disc, sia da 8" che 
da 5" 1/4, o da 3” 1/2 è protetto dalla tecnologia che è frutto 
di più di 25 anni di sviluppo sia dei prodotti magnetici che delle 
tecniche di registrazione e che ha permesso di raggiungere livel¬ 
li altissimi di affidabilità, durata ed uniformità della produzione. 


È importante, scegli Memorex 

d) 


Via Ciro Menotti, 14 - 20129 Milano • Telefono: 02/718551 





















































C oncerto grosso per C 64 

__e sintetizzatori_ 

con il Multitrack Composer 


I l “compositore” elettronico 
di cui ci occupiamo questo 
mese, è un programma per 
Commodore 64 che permette di me¬ 
morizzare, modificare e riprodurre, 
mediante un codice numerico, brani 
musicali anche di notevole comples¬ 
sità e durata, sfruttando tutte le ca¬ 
ratteristiche polifoniche e politim¬ 
briche del MIDI Computer Interfa¬ 
ce. 

Mano libera alla fantasia 

In primis è possibile lavorare a 
casa propria utilizzando solo un sin¬ 
tetizzatore e un C 64 dotato di regi¬ 
stratore a cassette o floppy disk, sen¬ 
za dover trascorrere ore e ore in uno 
studio. Messi a punto tutti i partico¬ 
lari dell’esecuzione, anche su più pi¬ 
ste, ci si può trasferire in sala d’inci¬ 
sione per la registrazione definitiva, 
con la possibilità di sovraincidere 
altri effetti al momento opportuno. 
I principianti invece, hanno la possi¬ 
bilità di memorizzare esecuzioni da 
virtuoso, facendole poi riascoltare a 
velocità sbalorditiva, con la massi¬ 
ma fedeltà e alla tonalità originale 
del brano. In più, il programma del¬ 
la SIEL, può rappresentare un pun¬ 
to d’incontro tra l’appassionato di 
informatica ed il mondo della musi¬ 
ca, rendendo più accessibile la nota¬ 
zione tradizionale, mediante la sua 
riduzione ad una rappresentazione 
essenzialmente numerica. 

Come si usa 

Veniamo ora a qualche notizia 
più spicciola: il Multitrack Compo¬ 
ser CMP 1.1 è un programma per la 
composizione musicale che può co¬ 
municare con strumenti provvisti di 
interfaccia MIDI a tutti i livelli pre¬ 
visti dallo standard: Omni mode, 
Poly mode, Mono mode. E’ stato 
realizzato per il Commodore 64 e 


viene distribuito su cassetta o su di¬ 
sco (al prezzo di 86.730 lire per la 
prima versione e di 99.120 per que- 
st’ultima, IVA sempre inclusa) ed è 
garantito dalla SIEL solo per l’uti¬ 
lizzo con il proprio MIDI Computer 
Interface, di cui si è già ampiamente 
riferito da queste pagine. Non ci di¬ 
lungheremo sulle operazioni di col- 
legamento dei vari cavi, che sono 
sempre le solite e vengono ben docu¬ 
mentate sul manuale che accompa¬ 
gna il programma: sono necessari 
un Commodore 64, un lettore di di¬ 
schi Commodore 1541 (o un regi¬ 
stratore Datassette), un monitor (o 
un televisore), il MIDI Computer 
Interface ed almeno una periferica 
musicale che accetta il protocollo 
MIDI. Possono essere connesse sino 
a sei periferiche distinte, comprese le 
batterie elettroniche sincronizzate 
su una frequenza di 1/24. Con il 
CMP 1.1 si possono programmare 
qualcosa come 9.000 note o pause 
divisibili in 6 canali da 1.533 passi: 
se avete una periferica musicale che 
ammette la modalità Poly, diventa 
possibile identificarla con un nume¬ 
ro di canale tra 1 e 16, permettendo 
così di riascoltare i 6 canali ammessi 
con diversi timbri. Le periferiche 
funzionanti solo in Omni mode, 
vanno invece associate al program¬ 
ma corrispondente al numero 1. Il 
Multitrack Composer è realmente 
flessibile: consente di cambiare tim¬ 
bro in ogni punto della composizio¬ 
ne, per ogni canale; per le periferiche 
con controllo di dinamica, è possibi¬ 
le comandarlo scegliendo in una 
gamma di 127 livelli di espressione 
diversi. 

Note e numeri 

Si diceva all’inizio, della semplici¬ 
tà di notazione offerta: una nota in¬ 
tera (4/4) ha per il Composer il valo¬ 
re 96 e può quindi essere divisa in 


valori da 1/96. Per rendere più velo¬ 
ce il lavoro di scrittura sono stati 
associati ai tasti funzione del Com¬ 
modore 64 alcuni valori. Così fi cor¬ 
risponde alla nota da 1/2 (48), O 
vale 1/4 (24), f5 sta per 1/8 (12) e f7 
realizza 1/16 (6). Ogni singola nota 
può essere legata o staccata dalla 
precedente, partendo da un valore 
minimo (1) per l’effetto staccato, al 
massimo del legato, corrispondente 
al suo valore numerico decrementa- 
to di un’unità. Le velocità di esecu¬ 
zione previste corrispondono ai nor¬ 
mali valori del metronomo (da 40 a 
239 battiti al minuto) e la frequenza 
del suono non risente del cambio di 
velocità (particolare molto apprez¬ 
zabile se è necessario provare su una 
base più lenta dell’esecuzione reale, 
mantenendo però la tonalità del 
brano). Le note vengono invece in¬ 
dividuate da una sola lettera (secon¬ 
do la notazione anglosassone), da 
un simbolo corrispondente all’even¬ 
tuale accidente e da un numero rela¬ 
tivo all’ottava della tastiera. Per 
chiarire le idee ci sbottoneremo un 
pò dichiarando che C4 è un Do nella 
quarta ottava, C = 4 è invece il rela¬ 
tivo Do diesis e C $ 4 il Do bemolle 
(mezzo tono sotto la nota di parten¬ 
za). 

Per concludere 

Oltre a definire note e durate, 
CMP 1.1 consente di duplicare, ma¬ 
gari trasponendoli, dei blocchi di 
note già scritti, travasandoli anche 
da un canale all’altro. E’ sempre 
possibile ascoltare quanto si è realiz¬ 
zato fino a quel momento e salvarlo 
su supporto magnetico. 

Anche questa volta rinnoviamo l’in¬ 
vito a farci pervenire osservazioni e 
richieste di chiarimenti. L’indirizzo 
del produttore è: SIEL S.p. A - Zona 
Industriale - 63020 Acquaviva Pice¬ 
na (AP) - Tel. 0735-60744 ■ 
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COMMODORE VIC 20 - C 64 


I Super BASIC 


di Alessandro Guida 


SEGRETI DEL PERSONAL 


Sicuramente, i lettori che hanno la pazienza di 
leggere questa rubrica tutti i mesi sono persone a cui i 
programmi piace scriverli da sé: saranno quindi mol¬ 
to interessati ad un sistema flessibile che permetta di 
aggiungere al BASIC Commodore solo le routine 
implementanti le istruzioni volute; è a questo sistema 
che approderemo col presente articolo. 


Dando un’occhiata alle varie riviste che si occupa¬ 
no di software per personal computer, o ai prodotti in 
commercio, appare evidente che un grosso sforzo da 
parte di programmatori ed hobbisti è stato fatto, e lo 
sarà ancora, per poter arricchire il BASIC V2.0 del 
C 64 o VIC 20 di comandi nuovi e sempre più sofisti¬ 
cati. I metodi per raggiungere questo risultato sono 
molti, ed ognuno ha i suoi pregi e i suoi difetti. 

Noi cercheremo di chiarire le tecniche utilizzate, ana¬ 
lizzando gli aspetti negativi e quelli positivi di ognu¬ 
na. Il tutto sarà completato da numerosi esempi, che 
potrete implementare direttamente nei vostri pro¬ 
grammi. 

Alcuni chiarimenti essenziali 


Modifiche all’interprete BASIC 

Le varie linee di un programma, con le istruzioni 
ivi contenute, vengono memorizzate, interpretate ed 
eseguite dall’interprete BASIC. Tutte le istruzioni 
che l’interprete è in grado di riconoscere sono conser¬ 
vate in una tabella al suo interno. Il sistema più 
professionale per aggiungere istruzioni al BASIC è 
perciò quello di modificare l’interprete. 

Questa operazione ha il vantaggio di rendere le nuove 
istruzioni parte intégrante del BASIC. Esse vengono, 
quindi, normalmente interpretate e tokenizzate. 

Gli svantaggi, invece, vengono dal fatto che le modi¬ 
fiche all’interprete sono sempre molto difficili e ri¬ 
chiedono notevole esperienza. Inoltre: non è possibi- 


Tutto il proliferare delle estensioni del BASIC non 
è stato seguito da un effettivo utilizzo di tali program¬ 
mi da parte dell’utente. Questo a causa di diversi 
fattori. Ad esempio, il gran numero di BASIC “spe¬ 
ciali” ha impedito che potesse formarsi uno stan¬ 
dard, utilizzato da tutti, diverso dal BASIC classico. 
In secondo luogo si è sviluppata una specie di corsa 
alle istruzioni che ha portato a delle estensioni con un 
numero di comandi incredibile (a volte più di 100), 
che però si dimostravano difficili da usare o comple¬ 
tamente inutili. Infine non si è mai tenuto conto del 
fatto che nei programmi applicativi raramente ven¬ 
gono utilizzate tante istruzioni speciali: generalmente 
sono richieste poche istruzioni in più di quelle fornite 
dal BASIC 2.0. 

Per esempio, se in un programma fa comodo avere la 
possibilità di indirizzare direttamente il cursore in un 
punto qualsiasi dello schermo, è impensabile dover 
caricare programmi che occupano molta memoria e 
richiedono del tempo per venire letti dal disco, o 
peggio dal nastro, per poi utilizzare una sola istruzio¬ 
ne. 

È quindi sulla modularità che un programma di 
estensione deve puntare. Deve, essere possibile cioè 
caricare solo le routine che si è interessati ad utilizza¬ 
re. Oltretutto questa è una operazione normalmente 
svolta nei sistemi più grandi, dotati di più memoria 
disponibile. Se ad esempio si ha bisogno di particola¬ 
ri procedure grafiche, non si carica mai tutto il pac¬ 
chetto software in memoria, ma solamente le routine 
a cui si è interessati. 
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Tabella 1. Dump di una parte della memoria dell'inter¬ 
prete BASIC contenente la tabella con le parole chiave. 
Notare che l’ultimo carattere di ogni parola è incre¬ 
mentato di $<W ( 128 dee.). 

Questa tabella viene modificata ricopiandola dalla 
ROM alla RAM e sostituendo alcune parole con altre 
nuove, ma della stessa lunghezza. Ugualmente va modi¬ 
ficata la tabella che contiene gli indirizzi delle singole 
routine. 
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le, in alcuna maniera, rendere modulare questo tipo 
di modifica. È necessario caricare ogni volta in me¬ 
moria tutte le routine per i nuovi comandi previsti 
dall’autore della modifica. 

Per meglio capire quanto sia complesso questo tipo 
di intervento vediamo cosa accade digitando una 
linea, listandola ed eseguendola. 

1 ) Una linea di programma (è lo stesso per le linee in 
modo diretto), quando viene premuto il tasto di RE¬ 
TURN, viene memorizzata nel “input buffer”. 

2) Viene richiamata una routine (“Crunch Token 
Routine”) che trasforma le parole chiave del BASIC 
in codici di un solo byte, detti token, servendosi di 
una tabella in memoria che contiene tutti i comandi 
BASIC. 

3) La linea così trasformata viene memorizzata in 
ordine con le altre già in memoria. 

4) Quando si richiede il LIST di una o più linee, viene 
richiamata per ogni “token” una routine (“Print To¬ 
ken Routine”) che provvede a convertire il token in 
parola chiave e a stamparla sulla periferica attiva. 
Anche questa routine si serve della tabella delle paro¬ 
le chiave. 

5) Con il RUN comincia l’esecuzione del programma. 
Ad ogni comando incontrato sotto forma di token 
viene eseguita la routine (“Execute Statement Routi¬ 
ne”) che, grazie al token (numero di codice dell’istru¬ 
zione), accede ad un’altra tabella che contiene gli 
indirizzi delle routine delle singole istruzioni. Viene 
quindi eseguita la routine relativa al comando toke- 
nizzato. 

La soluzione sarebbe quindi quella di modificare le 
tabelle contenenti le parole chiave e gli indirizzi delle 
singole routine. Purtroppo questa procedura funzio¬ 
na solo se si intende sostituire un comando di quelli 
già presenti con un altro diverso. 

In caso contrario è necessario modificare le tre routi¬ 
ne viste prima. 

Infatti queste accedono alle tabelle mediante indiriz¬ 
zamenti assoluti-indicizzati. Per cui, se si è cambiato 
l’indirizzo della tabella o si vuole accedere a più di 
256 locazioni consecutive, bisogna cambiare l’indi¬ 
rizzo delle tabelle e il sistema di indirizzamento. 
Ecco, per esempio, come viene letta la tabella 1 delle 
parole chiave nella routine di Print Token originale: 
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Per applicare quanto detto cercheremo di migliorare 
i comandi RESTORE, GOTO ed IF ... THEN. Ag¬ 


giungeremo al RESTORE la possibilità di indicare la 
linea di DATA da cui cominciare a leggere (esempio 
RESTORE nn), al GOTO la possibilità di effettuare 
salti indiretti o calcolati (esempio GOTO A+B) e alla 
istruzione IF/THEN l’operatore ELSE, che permet¬ 
te un minimo di programmazione strutturata. 
Questi tre comandi, comunissimi per chi opera con il 
BASIC Microsoft, sono stati stranamente ignorati 
dalla Commodore. Per effettuarne l’implementazio- 
ne bisognerà riscrivere le routine che riguardano il 
RESTORE e il GOTO e inserire nella tabella gli 
indirizzi delle nuove routine. Per il comando ELSE 
riscriveremo la routine di IF/THEN, aggiungendovi 
quella dell’ELSE. Per evitare di allungare la tabella 
delle parole chiave sostituiremo la nuova istruzione 
al WAIT. Si tratta ovviamente di un compromesso 
che, a fronte della perdita di una istruzione (per altro 
poco usata), ci permette di rimpiazzare esattamente 
una parola con l’altra, in modo da non modificare la 
lunghezza della tabella. 

Questo ci porta anche un altro vantaggio: potremo 
sfruttare la capacità del 64 di ricopiare l’intero inter¬ 
prete BASIC in memoria RAM e di utilizzare que- 
st’ultima al posto della ROM (di questo argomento si 
è parlato diffusamente nel numero 18 di Personal 
Software). In questa maniera non siamo costretti a 
riscrivere completamente le tabelle e le routine relati¬ 
ve. 

Il listato I in Assemblyè pienamente commentato. Il 
listato 2 è lo stesso, ma in BASIC. 

Il listato 3 contiene, infine, un esempio di uso dei 
nuovi comandi. 

La sintassi dei comandi RESTORE e GOTO è 
quella solita, seguita da un’espressione numerica. Vi 
possono essere una o più variabili o lo stesso numero. 
Il RESTORE può essere anche dato normalmente 
senza alcun numero. 

Ecco alcuni esempi: 

RESTORE 
RESTORE 100 
RESTORE A 
GOTO N+30 

La sintassi dcllTF resta quella solita, ma è ora possi¬ 
bile aggiungere sulla stessa linea, preceduto dai due 
punti, il comando ELSE seguito da un numero di 
linea o da altre istruzioni. Le operazioni dopo l’ELSE 
vengono eseguite, se il confronto non è verificato. 

Esempi: 

20 GET A$: IF A$ =“Y” THEN 40 ELSE 20 
20 IF N>5 THEN PRINT“ERRORE”: ELSE 
PRINT “VA BENE” 
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Listato 1. Listato delle routine in linguaggio macchina che permei- 

tono di aggiungere al BASIC dei nuovi comandi modificando l’inter¬ 
prete. 

c000 a9 00 

Ida #400 

I IN1ZIALIZZAZIONE NUOVI COM. 

C002 83 f b 

sta *fb 

; 

C004 a9 J0 

Ida ti*a0 

> Prepara 1 puntatori per rico- 

C006 85 fc 

sta «fc 

ì piare la ROM in RAM 

c 008 a0 00 

ldy *$00 

; 

c00a hi f b 

Ida <*fb>,y 

> Copia da *8000 a «8FFF 

C00C 91 fb 

sta <*fb>,y 

; 

c00e c8 

iny 

; 

C00f d0 f 9 

bne *c00a 

; 1 

C0tl «6 fc 

ine «fc 

; 

C0I3 a3 fc 

Ida «fc 

; ! 

c815 c9 cB 

emp M$c0 

l Se non ha finito ripete 

c017 d0 f1 

bne *c00a 

; 

C019 a5 01 

Ida *01 

; Abilita la Ram disattivando 

cOlb 39 fe 

and M*fe 

> 1 ’ interprete In ROM 

c 0 1 d 85 01 

sta $01 

ì 

; Carràia jli indirizzi dei 
; comandi interessati 

c01f a9 7f 

Ida ntli 

; Indirizzo per il nuovo GOTO 

cesi 8d le a 0 

sta $a01e 

; 

C024 *9 c 0 

Ida Htc0 

; 

C026 8d lf a0 

sta $a01 i 

; 

c029 a9 3a 

Ida #$3a 

} Indirizzo per 1'ELSE 

c02b 8d 30 a0 

sta $a030 

; 

c02e a9 a9 

Ida M$a9 

; 

C030 8d 31 a0 

sta Sa031 

; 

C033 a0 03 

ldy N$03 

; Copia i restanti indirizzi 

c035 b3 4a c0 

Ida *c04a,y 

; e la nuova parola ELSE dalla 

C038 99 22 a0 

sta *a022,y 

1 tabella in «C043 

C03b b9 <13 c0 

Ida *c045,y 

; 

c03e 99 e5 a0 

sta $a0e5,y 

; 

c 041 88 

dey 

; 

C042 10 i 1 

bpl $c035 

; 

C044 60 

rts 

; 

C045 45 4c 53 

c5 

; 'ELSE 

C043 00 


; 

C04a 8f C0 


J Indirizzo IF 

c04c 4f C0 


; indirizzo RESTORE 

C04d ea 

nop 

; 

c04f ea 

nop 

; 

; RESTORE nn 

C050 d0 03 

bne $c055 

; Se non vi sono param. esegue 

c052 4c ld a8 

jmp $a81d 

: la routine di RESTORE orlgin. 

C055 c9 3a 

emp W$3a 

; Lo stesso se seguito da 'i 

C057 i 0 f9 

beq «C052 

; 

c059 20 8a ad 

jsr «ad8a 

; Calcola il valore seguente 

c05c 20 il b7 

jsr «b7f7 

; Lo conoerte in bin. in $14,15 

c05f a5 14 

Ida *14 

7 Aggiorna i puntatori della 

C061 83 3f 

sta *3f 

; linea di Data corrente 

C063 a3 13 

Ida «13 

1 

c 065 85 40 

sta $40 

; 

C067 20 13 a6 

jsr *a613 

; Cerca la linea in memoria 

c*06a b0 03 

bes »c06f 

; Se non c - e‘ da l'errore: 

c06c 4c «3 a8 

jmp *a8e3 

S 'UMJEF'D STATEMENT 

c06f a5 3f 

Ida $St 

; Memorizza l'indirizzo nel 

C071 e9 01 

sbe M$01 

; puntatore dell'indirizzo del 

C073 85 41 

sta *41 

; dato corrente. 

C075 a3 80 

Ida «60 

; 

c 077 e9 00 

sbe w $00 

; 

c 079 85 42 

sta $42 

; 

c07b 60 

rts 

j Termina la routine 

C07C ea 

nop 

; 

c07d ea 

nop 

; 

c07e ea 

nop 

; 

c07f ea 

nop 

i GOTO nn 

c 080 20 8a ad 

Jsr $ad8a 

; Calcola il valore seguente 

C083 20 f 7 b7 

Jsr $b7f7 

; Lo converte in bin. in $14,15 

c086 4c a3 a8 

Jmp $a8a3 

; Esegue il GOTO 

C089 ea 

nop 

; 

c08a e a 

nop 

; 

c08b e a 

nop 

; 

c08c ea 

nop 

; 




Finalmente 
una rivista 
dedicata 
all'automazione 

GRUPPO 
EDITORIALE 
JACKSON 

V_ ) 



73 










Pi 



«UBI d,TMW/*A* 
0 AULA MCmGA 
PO m&fWMMt 

Approfitta dell’offerta J. soft! 


in seguito alle sempre più numerose richieste di programmi da parte dei 
possessori dell’home computer TI-99/4A, mettiamo a disposizione degli 
interessati un vasto assortimento a prezzi estremamente contenuti 
L'offerta è valida fino ad esaurimento delle scorte. 

Prima ordini, più sei sicuro di ricevere quanto desideri. 



Programming Aids 1 - (Aiuto allo 
programmazione) 

Cod. DTXSX04 l. 14.000 

Mette a disposizione gli ousilii per po¬ 
tenziare il linguaggio BASIC TÌ. Com¬ 
prende le seguenti possibilità: 
-CATALOGARE DISCHI", DISPLAY 
AT ", "ACCEPT AT", "SCREEN PRINT 
(per la stampa su carta dello scher¬ 
mo)", "LOWERCASE (per la creazione 
di un set di lettere minuscole)", "2nd 
ASCII (per la costruzione e l'utilizzo di 
un secondo set di caratteri)", "CHAR- 
DEE (per realizzare e facilitare la defi¬ 
nizione dei caratteri)". 

Configurazione richiesta: A 
Configurozione raccomandata: D 4 E 


Blackjack e Poker 

Cod. DTXMX04 L. 25.000 

Partite di corte simulate col compu¬ 
ter, che vi consentono di puntare le 
somme dei vostri desideri. Possono 
partecipare fino a quattro giocatori 

The Attack (Attacco) 

Cod. DTXMX25 - l. 25.000 

Vi attende il ruolo di capitano di un'a¬ 
stronave in una regione spaziale infe¬ 
stata da "spore" ed "etraterrestri"che 
vanno distrutti. 

Manovrate l'astronave per evitare gli 
extraterrestri e lanciate missili per an¬ 
nientare il nemico. 

Configurozione raccomandalo: B 

Biotto 

Cod. DTXMX05 -1. 25.000 

Un corro armato (o due, a seconda del 
numero dei giocatori) entrano in lizza 
per far saltare un campo minato, evi¬ 
tando nel contempo i tiri dell'avversa¬ 
rio. Una corsa velocissimo contro il 
cronometro allo scopo di colpire il 
massimo numero di mine. Attenti a non 
colpire le mine se siete troppo vicini, 
altrimenti dovrete ricominciare da ca¬ 
po. 

Configurazione raccomandata: B 


Hunt thè Wumpus (Coccia la Mo 
stro) 

Cod. DTXMA 12 - L. 25.000 

Una coccia emozionante in un deda¬ 
lo di caverne e gallerie. Cercate la 
tana del Mostro evitando i pericoli 
in agguato lungo il percorso. Soppe¬ 
sate e vagliate attentamente gli in¬ 
dizi per completare questa missione 
pericolosa. 

Configurazione raccomandata: B 


Personal Report Generator (Gene¬ 
ratore rapporti e archivi personali) 
Cod. DTXTX01 - L. 68.000 

Permette di creare, edit e stampare let¬ 
tere e rapporti di routine con i dati 
ricavati da un archivio creato esclusi¬ 
vamente con i moduli "Gestione dati 
personali (cod. DTXGX01)" o "Doli 
Statistici". 

Configurozione raccomandato: A o C 
D 4 E 

A - MAZE - ING 

Cod. DTXMX03 - L. 25.000 

Se vi piacciono i labirinti, ecco il gio¬ 
co per voi. 

Opzioni diverse vi offrono una gran¬ 
de varietà di situazioni. Da semplici 
dedali alla caccia al topo. Tredici 
opzioni con 5.200 variazioni possibi¬ 
li. 

Configurazione raccomandata: 8 

Munch Man 

Cod. DTXMX16-L. 45.000 

Manovrate il Munch Man attraverso 
un dedalo e cercale di raggiungere 
uno stimolatore prima di venire di¬ 
vorati dai quattro Hoonos che stan¬ 
no incalzando il Munch Mon. Segna¬ 
le punti collegando i passaggi con 
una catena continuo oppure cattu¬ 
rando gli astuti Hoonos mentre il 
Munch Man si ricorica con 10 stimo¬ 
latori. 

Configurazione raccomandata: B 


Tombstone City: 21 secolo 

Cod. DTXMX28 - L. 25.000 

Vi trovate in uno città fontasmo del 
Far West nel XXI secolo, minacciata 
da un'orda di invasori verdi. Avan¬ 
zate con la vostra pattuglia su carri 
coperti tipo Far West, cercando di 
arrestare i verdi "morgs". 

Gioco velocissimo per una persona, 
Tombstone City mette alla prova la 
Vostra abilità strategica e lo pron¬ 
tezza di riflessi. 

Configurozione raccomandala: B 


Market Simulation (Simulazione di 
mercato) 

Cod. DTXIX07 - L. 14.000 

Due giocatori si trovano in concor¬ 
renza daffari. Scegliete quanta 
pubblicità fare, quanti pezzi volete 
produrre, ecc. ed attendete i risulta¬ 
ti. 

I mutamenti economici e sociali ren¬ 
dono estremamente realistico que¬ 
sto gioco istruttivo. 

Configurazione richiesta: A 







Othello 

Cod. DTXMX20 • L. 35.000 

Questo antico gioco di strategia im¬ 
pegna a fondo anche i giocatori più 
smaliziati. Un gioco da scacchiera 
che si impara in pochi minuti ma che 
richiede... una vita per dominarlo. 
Per strateghi di tutte le età. 

Oldies but Goodies (Vecchi mo buo 

ni ) - Gioco II 

Cod. DTXMX19 - L. 14.000 

Una serie di giochi, che include 
Hammurabi, Hidden Paris, Peg 
Jump, Cerchi e croci tridimensionali 
e Word Safari. 

Configurazione richiesta: A 


Zero Zap 

Cod. DTXMX34 - L. 18.000 

Flipper computerizzato dal ritmo 
rapido, con effetti sonori e di illumi¬ 
nazione. Potete creare voi stessi il 
campo di gioco. 


Personal Record Keeping (Gestione 
doti personali) 

Cod. DTXGX01 - L. 68.000 

Permette di creare, mantenere ed 
utilizzare un sistema d'archivio com¬ 
puterizzato, utile e comodo per mol¬ 
te applicazioni, fra cui inventario 
domestico, scadenze manutenzione 
autovettura, cartelle cliniche, oltre a 
un mezzo di consultazione completa 
per compleanni, onomastici, anni¬ 
versari e altre date importanti. 

Configurazione raccomdandata: A 
oC D + E 


Connect Four (Filetto) 
Cod. DTXMX08 - L. 25.000 


Hangman (Il carnefice) 

Cod. DTXIX06 - L. 25.000 

Il giocatore cerca di scoprire la pa¬ 
rola segreta e ogni volta che sba¬ 
glia, si avvicina maggiormente alla 
forca. Potete usare 200 parole pro¬ 
grammate in inglese oppure crearne 
60 nuove. 

Configurazione raccomandata: A 


Yahtzee 

Cod. DTXMX33 - L. 25.000 


Configurazione: 

A - Reistratore a cassetta e cavetto 
di collegamento 
B - Telecomandi a filo (coppia) 

C - Memoria a dischi comprendente 
una scheda comando dischi e un co¬ 
mando'dischi 

D - Scheda interfaccia parallelo o 
seriale RS232 

E - Stampante a matrice (o altro tipo 
di stampante) 


Un impegnativo gioco di strategia ver¬ 
ticale. I giocatori devono riuscire ocol- 
locare quattro contrassegni 
consecutivi in senso verticale, orizzon 
tale o diagonale. 


Emozionante gioco di dadi che alla 
strategia abbina elementi di fortu¬ 
na. I giocatori accumulano punti se 
escono certe combinazioni. 


e inoltre 5 libri in lingua originale, estremamente utili per il tuo TI 99/4A: 


Editore ARC soft - autore L. Turner: 


101 Programming Tips & Tricks for 
thè Texas Instruments TI 99/4A Ho¬ 
me computer. 

Cod. BASC001 - L. 20.000 


Texas Instruments Home Computer 

Games Programs 

Cod. BASC004 - L. 20.000 


Editore GRANADA - autore 
G. Marshall: 


36 Texas Instruments TI99/4A Pro¬ 
grams for Home, School & Office 
Cod. BASC002 - L. 20.000 


Texas Instruments Home Computer Gel more from thè TI99/4A 
Graphics Programs Cod. BGRC001 - L. 15.000 

Cod. BASC003 - L. 22.000 


Ritaglia ed invia a J. soft il tagliando sotto riportato, debitamente compilato in ogni sua parte. 


Spett. J. soft - Via Rosellini, 12 - 20124 Milano (MI) 
Tel. 02/6888228-6880841 -6880842-6880843-683797 

Ordino il seguente software/libri per il TI-99/4A: 


cod. 

cod. 

cod. 


.cod. 

.cod. 

.cod. 


.cod. 

.cod. 

.cod. 


per un totale di L.+ L. 2.500 per contributo fisso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: 

□ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l'importo sul C.C.P. n. 19445204 
intestato a J. soft (allego ricevuta) 
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c08d 

ea 



nop 


l 


c08e 

ea 



nop 


; 


C08f 

ea 



nop 


; 

IF...THEN...ELSE 

C090 

20 

9e 

ad 

Jsr 

Sad9e 

; 

Calcola l'espressione seguente 

C093 

20 

79 

00 

J*r 

*0079 

ì 

Prende il codice successivo 

C096 

c9 

39 


crnp 

W*89 

ì 

Se il codice seguente non e' 

c 098 

i 0 

05 


beq 

*c09f 

i 

il GOTO e non e' il THEN 

C09a 

a 9 

a7 


1 da 

M*a7 

j 

salta al messaggio: 

c09c 

20 

ft 

ae 

Jsr 

*aef f 

; 

•SYNTAX ERROR 

c09f 

a5 

01 


Ida 

*61 

; 

Legge il risultato dell'espr. 

c0a 1 

■f0 

03 


beq 

*c0a6 

; 

Se=0 e' -falso (non veri-f.) 

C0a3 

4c 

40 

a9 

J mp 

*a940 

; 

Esegue THEN 

C0a6 

a2 

92 


ldx 

#*92 

; 

Cerca Inizio statement ELSE 

C0a8 

20 

0b 

a 9 


*a90b 

; 


c0ab 

c9 

00 


crnp 

# *00 

; 

Se non lo trova passa passa 

c0ad 

d0 

03 


bne 

*c0b2 

i 

alla linea successiva 

c0af 

4c 

3b 

a9 

Jmp 

*a93b 

ì 


C0b2 

c 8 



iny 


; 

Esegue ELSE 

C0b3 

20 

■f b 

a8 

Jsr 

*a8fb 

» 

Sposta i puntatori al codice 

c0b 6 

4c 

40 

a 9 

J mp 

*a940 

i 

successivo 1 'ELSE ed esegue 







j 

i.l resto della linea 











Modifiche alla routine di Warni Start 

Vi è un altro sistema per aggiungere dei comandi al 
BASIC: modificare la routine di Warm Start, che 
accetta linee di comandi dalla tastiera e li esegue, o 
memorizza, se preceduti da un numero di linea. L’in¬ 
dirizzo di partenza di questa routine è conservato nel 
vettore $0302, 0303. I primi comandi sono: 

A483 JSR $A560 
A486 STX $7A 
A488 STY $7B 
A48A JSR $0073 

La subroutine $A560 è quella che riceve la linea dalla 
tastiera e la deposita in buffer a partire da $0200. Si 
può quindi modificare il vettore di Warm Start per 
sostituire alla routine originale una nostra routine 
che intercetti i nuovi comandi. Ad esempio, potrem¬ 
mo spostare in $C000 l’inizio del Warm Start così: 

C00O JSR *0360 ì ‘Ric*v* un* I In** 

C003 STX *70 J ’Silv* I r*9i*trt X 

C004 STY *7B I' • K 

C006 LOYN *00 ; ' In tx . pun titoro 

C008 LO0 *0200,YJ*C*rle* primo c*r*tt*r* line*. 

C00B Cht»***© ; 'Lo confront* con "fi“ 

C00O BEO *C0I2 /’P*ift* *d «itguirt II nuovo comando 

C00F JW *0480 l 'S* divino torn* *11* vicchia routine 
C012. I 'Eft*«u* Il nuovo conando 

In questo piccolo esempio vengono intercettati tutti i 
comandi che cominciano con il carattere” @ ”, men¬ 
tre per gli altri comandi viene eseguita la routine 
normale. 

Chi desiderasse approfondire questo problema può 
consultare il numero 14 di Personal Software in cui 
compariva il listato Assembly del Programmerà Tool 
Kit che utilizzava, appunto, questo metodo. 
Purtroppo, la semplicità con cui può essere applicato 
presenta come controparte due problemi. Primo: non 
è possibile inserire tali comandi nei programmi BA¬ 
SIC, ma sono utilizzabili solo in modo diretto. Se¬ 
condo: non presenta le caratteristiche diflessibilità di 
cui avevamo parlato all’inizio. 

Vi sono, però, altre possibilità che vedremo la prossi¬ 
ma volta. 


F1GL/OFT 

Commodore software house 


prof. Giuseppe Alla - Via San Francesco Nuovo, 6 
04019 TERRACINA (LT) - tei. 0773/727925-730281 


PER IL CBM 8000: 

ORARIO SCUOLA MEDIA 

Una completa e sofisticata procedura per la compilazione delforario scolastico 
strutturata in sette programmi (tecnica di overlay) aggiornata alle vigenti leggi 
in materia scolastica. Consente la stampa automatica di qualsiasi cosa inerente 
l'orario: 

1) orario per materia 

2 orario per Insegnanti 

3 elenco insegnanti con materie e classi 

4 giorni liberi degli insegnanti 

5 scheda insegnante 

6) cartellino orarlo per ogni insegnante. 

Il programma prevede un massimo di 36 classi e consente la compilazione di un 
orario in pochissimo tempo poiché controlla automaticamente le ore scritte sul 
tabellone, i giorni liberi, i giorni occupati in altre scuole, i buchi, le prime e le 
quinte ore ecc. 

Eccezionale la parte riguardante l'orario di Ed. Fisica poiché gestisce gli abbina¬ 
menti dichiarati in modo del tutto automatico, un'ora assegnata ad una classe 
viene contemporaneamente assegnata (o tolta) alle classi abbinate. 

Di questo programma attualmente é disponibile questa versione per la Scuola 
Media inferiore e per il CBM 8000. 

Sono in lavorazione varie versioni per le scuole superiori. 

Per il CBM 64 sarà disponibile non appena ci sarà una scheda checonsente l'uso 
di 80 colonne di schermo (pare sia già uscita). 

PER IL CBM 64: 

UNA SERIE DI PROGRAMMI ECCEZIONALI PER L'USO SOFISTICATO DEL REGI¬ 
STRATORE: 

1) AGISPRINT L. 30.000 - Esso aumenta di dieci volte la velocità del Load. del 
Save e del Verify ed in più implementa il comando MERGE (veloce) che 
consente di unire due programmi. Il programma una volta caricato in 
memoria si alloca in spazi protetti (da SCOOO a SCFFF) e resta residente fino a 
che non si spegne il computer. Usato con un registratore munito di contagiri 
consente un risparmio di cassette di molto superiore alle dieci volte anche in 
considerazione del fatto che lascia pochissimo spazio tra un programma ed 
un altro, giusto quello necessario a passare la parte neutra all'Inizio del 
nastro. 

2) AGISPRINT 2 L. 30.000 - Lo stesso programma Agiprint allocato in una parte 
diversa di memoria (da 9000 a 9FFF). 

3) AGISPRINT 3 L. 50.000 - Oltre tutti i comandi sprint esso crea e gestisce un 
piccolissimo (ile dati che va registrato all'inizio di ogni nuova cassetta. 
Tale file è simile alla directory del disco e può essere aggiornata in qualsiasi 
momento. 

Esso gestisce in modo autonomo il registratore. La sua caratteristica princi¬ 
pale è l'uso dei (asti di scorrimento veloce e l'arresto automatico del regi¬ 
stratore alla posizione di nastro desiderata. 

Questo programma è un vero gioiello indispensabile a qualsiasi possessore 
di CBM 64 e registratore poiché oltre i comandi sprint implementa due 
comandi relativi alla directory: 

a) - 0 - che consente l'uso del programma con l'ultima directory letta. 

poiché questa resta in memoria fino a che non si legge una 
nuova directory: 

b) - $ - legge una nuova directory. 

4) BACSPRINT L 40.000 - Oltre tutti i comandi sprint esso consente il backup 
disco-cassetta sia totale che selettivo. I programmi sono registrati su cas¬ 
setta in print. E velocissimo, consente di trasferire un disco pieno su nastro 
in meno di cinque minuti 

5) AGITAPE L. 40.000 - Potente tool kit. oltre tutti i comandi sprint implementa i 
seguenti comandi indispensabili ad un programmatore non più principiante: 
HELP. AUTO, TRACE. rEnuMBER (che aggiorna I goto, then, gosub) e inoltre 
DELETE. FINO, DUMP etc. 

6) TAPESTAR L. 30.000 - Che consente la registrazione di un programma con 
autostart (quando verrà richiamato partirà automaticamente senza il RUN). 
utilissimo per proteggere i programmi. Nelle istruzioni sono descritte le 
forme di protezione. 

LA SERIE SPRINT COMPLETA É IN OFFERTA SPECIALE A L. 150.000 

Disponiamo inoltre: 

1) di molti programmi sul TOTOCALCIO sia per 1*8000 che per il 64; 

2) di tutti o quasi i programmi circolanti del C64 e del CBM 8000 a prezzi irrisori. 

Per informazioni scrivere o telefonare al 0773/727925 dalle 16 alle 20. 

__ 
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IMPARIAMO 
LA DATTILOGRAFIA 

Il software didattico per l'ap¬ 
prendimento dell'uso della ta¬ 
stiera dattilografica, disponi¬ 
bile per Apple II. Ile. Ile. 


PROGRAMMARE 
IN BASIC 

Per impararea programmare 
in BASIC il vostro Apple II. 
Ile. Ile e acquisire in modo in¬ 
terattivo una approfondita co¬ 
noscenza del linguaggio. 


MICROSOFT CHART 

Oltre 40 tipi di grafici per vi¬ 
sualizzare istantaneamente i 
dati numerici con Macintosh. 
K possibile utilizzare diretta¬ 
mente anche i dati generati da 
Multipla!). 


MICROSOFT WORD 

Il miglior sistema di produzio¬ 
ne ed elaborazione testi dispo¬ 
nibile per IBM PC. 


J.SOFT 




























MacCFS 

Un programma italiano per 
gestire con semplicità «I elfi- 
cacio (lualnnqur tipo di infor¬ 
mazioni con Macintosh. 


FILKVISION 
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metrica semplicità: offrire il meglio, nella forma più adatta, a un 
prezzo conveniente, con il miglior servizio. 
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TEXAS TI99/4A_ 

Sottoprogrammi in TI Extended 
BASIC 

di Sergio Borsani 

Quanto è “esteso” il nostro Extended BASIC? 
Non è nostra intenzione di parlare diffusamente del 
modulo di comando SSS, che permette di ampliare il 
linguaggio del TI99/4A, ma piuttosto di soffermarci 
su una delle sue caratteristiche più notevoli e forse 
meno conosciute. 

Se infatti si chiedesse quali sono le istruzioni più 
apprezzate tra quelle fornite dal modulo di estensio¬ 
ne, sicuramente la risposta riguarderebbe i comandi 
grafici per la creazione ed il controllo degli sprite. 
Mentre gran parte delle sue istruzioni si possono 
simulare anche con semplici programmi in TI BA¬ 
SIC (è il caso delle funzioni booleane AND e OR odi 
altre come DISPLAY AT, ACCEPT AT, ecc.), le 
funzioni grafiche per gli sprite sono invece esclusive 
dell’Extended BASIC. Esse inoltre risultano partico¬ 
larmente agevoli per la programmazione, in quanto 
permettono di evitare l’uso delle POKE e la cono¬ 
scenza di specifiche locazioni di memoria, come suc¬ 
cede invece con altri computer. 

Vista l’importanza e la notorietà dei comandi grafici, 
con mo’lta probabilità passa inosservata un’altra ca¬ 
ratteristica esclusiva dell’Extended-BASIC: la gestio¬ 
ne dei sottoprogrammi. Normalmente per sottopro¬ 
grammisi intendono subroutine richiamate con un’i¬ 
struzione GOSUB. I sottoprogrammi dell’Ext- 
B ASIC sono invece qualcosa di più potente, anche se 
sostanzialmente analogo. 

Un sottoprogramma è un programma distinto dal 
programma principale, non solo perché necessaria¬ 
mente deve essere posto al termine di esso, dopo 
l’istruzione END, ma anche perché le sue variabili, 
pur identiche a quelle del programma principale, si 
comportano in modo del tutto indipendente da esse. 
Ad esempio, se nel programma principale si è posto 
N=10, si può usare la variabile N anche nel .sottopro¬ 
gramma ed attribuire ad essa valori diversi, come 11, 
12, 13, ecc. Quando si torna al programma principa¬ 
le, N assumerà di nuovo il valore precedente alla 
chiamata del sottoprogramma, cioè 10. Infatti, all’u¬ 
scita di un sottoprogramma tutte le sue variabili 
vengono azzerate ed il programma principale ripren¬ 
de con le sue variabili poste al valore che avevano al 
momento della chiamata. 

Un eventuale passaggio di valori tra il programma ed 
il sottoprogramma è possibile ed avviene solo sotto il 
controllo del programmatore. 


A chi scrive non risulta che altri computer del livello 
medio-basso ed altre versioni di BASIC posseggano 
una simile capacità e al lettore attento non sfuggirà 
come ciò consenta una più agevole programmazione, 
sul tipo della “programmazione strutturata” otteni¬ 
bile in Pascal. 

In pratica è possibile costituire una libreria di routine 
da inserire, o più precisamente agganciare, ai normali 
programmi senza alcuna modifica e senza alcuna 
preoccupazione circa la compatibilità delle variabili. 

A chi non è successo di “sporcare” il valore di una 
variabile perché inconsapevolmente aveva usato la 
stessa in una subroutine? Con l’uso dei sottopro¬ 
grammi ciò non succede! Quali istruzioni permetto¬ 
no la loro gestione? 

Un sottoprogramma si apre con le istruzioni SUB 
“nome” (lista variabili). Essa, come è già stato detto, 
deve seguire il programma principale ed essere posta 
solo dopo un’istruzione END o una REM. 

La lista delle variabili tra parentesi è il cordone om¬ 
belicale tra il programma madre ed il sottoprogram¬ 
ma e consente il passaggio di particolari valori nei 
due sensi. 

Il sottoprogramma deve terminare solo con l’istru¬ 
zione SUBEXIT o SUBEND, che pertanto hanno 
una funzione analoga al RETURN di una subrouti¬ 
ne. 

Per accedere ad un sottoprogramma si usa l’istruzio¬ 
ne: CALL “nome” (lista variabili), che funziona co¬ 
me una GOSUB. 

La linea delle variabili tra parentesi deve trovare una 
esatta corrispondenza con quella presente nell’istru¬ 
zione SUB e serve per trasmettere e ricevere partico¬ 
lari valori. Alcuni esempi chiariranno meglio tutto il 
meccanismo. Battete il seguente programma. 

100 REM SOTTOF'ROBRAMMA 
110 REM a************* 

120 CALL CLEAR :: N=9999 

130 PRINT "SCRIVI UNA PAROLA" :: INPUT A 

$ 

140 CALL REVERSE(A*) 

150 PRINT " ..5 A* 

160 PRINT :: PRINT "N =";N :: END 
1000 SUB REVERSE <X$) 

1010 LN=LEN(X*): : B$="" 

1020 FOR N=LN TO 1 STEP --1 
1030 B*==B*S<SEe* <X*,N, 1) 

1040 NEXT N :: X*--=B* 

1050 SUBEND 

La lista 140 chiama un particolare sottoprogramma, 
chiamato REVERSE, che accetta una stringa e la 
trasforma nella stringa inversa, cioè nella stessa, co¬ 
me risulterebbe leggendola da destra a sinistra. Nel 
programma principale A$ contiene la parola specifi¬ 
cata, mentre la variabile N è stata inserita solo a titolo 
dimostrativo. 
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Sottoprogrammi in TI 
Extended BASIC. 


Listato 1 - // programma Time. 

100 REM SOTTOPROGRAMMA 
110 REM TIME ENTRY 
120 REM **************** 


Il sottoprogramma riceve il contenuto di A$ nella 
variabile X$ e successivamente trasforma X$ nella 
stringa inversa. All’uscita del sottoprogramma il 
contenuto di X$ viene trasferito nuovamente in A$. 
Lo scambio dei valori avviene solo tra le variabili 
poste tra parentesi nella CALL e nella SUB. Le altre 
variabili, pur con lo stesso nome, sono indipendenti 
le une dalle altre. 

A conferma di ciò si è usata la N come variabile di 
lavoro nel sottoprogramma. Nonostante ciò, tornati 
nel programma principale, N mantiene il suo primiti¬ 
vo valore, cioè 9999. 

A maggior riprova della potenza e della versatilità dei 
sottoprogrammi c’è un’opzione che permette di tra¬ 
smettere un valore dal programma al sottoprogram¬ 
ma senza alterare nemmeno le variabili contenute tra 
parentesi nella CALL. Modificate nel modo seguente 
il programma ed eseguitelo. 

100 REM SOTTOPROGRAMMA 
110 REM ************** 

120 CALL CLEAR : : N=9999 

130 PRINT "SCRIVI UNA PAROLA" :: INPUT A 
* 

140 CALL REVERSE(( A$)) 

150 PRINT :: PRINT "PROGRAMMA:":"A$ = "; 
A$ 

160 PRINT :: PRINT "N = ";N :: END 
1000 SUB REVERSE(X$) 

1005 PRINT :: PRINT "SOTTOPROGRAMMA 1:": 
"X$ = "; X* 

1010 LN=LEN < X$>: : B*="" 

1020 FOR N=LN TO 1 STEP -1 
1030 B$=Eiì&SEG$ ( X$, N, 1 ) 

1040 NEXT N :: X$=B$ 

1045 PRINT "SOTTOPROGRAMMA 2:":"X$ = "; X 
$ 

1050 SUBEND 

Questa volta il contenuto di X$ non è tornato in A$ e 
questo semplicemente perché A$ è stata inserita nella 
CALL tra un’ulteriore coppia di parentesi. 

Come ultimo esempio viene riportato un sottopro¬ 
gramma che, a differenza dai primi, può rivestire 
qualche utilità nei programmi che richiedono l’intro¬ 
duzione del tempo nel sistema sessagesimale. 

Esso inizia alla linea 1000 del listato 1 e porta il 
nome convenzionale di TIME. La sintassi per richia¬ 
marlo è: CALL TIME (n° riga, n° colonna, 
“00:00:00.00”, variabile numerica). 

Dopo la CALL appare sullo schermo la stringa 
00:00:00.00 nella posizione specificata dal numero di 
riga e di colonna (il sottoprogramma non è protetto 
contro quei valori che porterebbero .parzialmente o 
totalmente la stringa fuori dallo schermo). 

Un cursore, con la forma di una lineetta bianca, si 
posiziona all’inizio della stringa e l’utente può inseri¬ 
re il tempo, specificando ore, minuti e secondi, ed 


130 REM versione 

140 REM TI EXTENDED BASIC 

150 CALL CLEAR :: CALL CHAR(12S,"OOOOOOO 

OOOOOFFFF") 

160 CALL TIME(12,10,"00:00:00.00",S) 

170 PRINT "SECONDI =";S 
ISO END 

1000 SUB TIME(R,C,B*,TEMPO) 

1010 DISPLAY AT (R, C) BEEP: Bit 

1020 Y=(R-i)*8+1 :: X=(C+1)*8+1 s: CALL 

SPRITEtttl,128,16,Y,X) 

1030 LN=LEN(B $): : C1=C :: C2=C+LN-1 
1040 CALL KEY(5,K,S): : IF 5=0 THEN 1040 
1050 IF K=8 AND C>C1 THEN C=C-1 :: W=-l 
:: GOTO 1140 

1060 IF K=9 AND C<C2 THEN C=C+1 ; : W=1 : 

: GOTO 1140 

1070 IF K=32 THEN W=1 :: GOTO 1130 
1080 IF K=13 THEN 1160 
1090 IF K<48 OR K>57 THEN 1150 
1100 CALL HCHAR(R,C+2,K): : W=1 :: IF C=C 
1 THEN B$=CHR* (K)S<SEG* <B*,2,LN-1) : : GOTO 
1130 

1110 IF C=C2 THEN B*=SEG$<B*,1,LN-1)&CHR 
$(«);: GOTO 1130 

1120 B$=SEG$ (Bi, 1, C-Cl ) &CHR* (K) 8tSEB$ (B$, 
C—Cl+2,C2—C) 

1130 IF C<C2 THEN C=C+1 

1140 IF OC 1+2 OR C=C1+5 OR OC 1+8 THEN 
OC+W 

1150 X=(C+l)*8+1 :: CALL LOCATE(#1,Y,X): 

: GOTO 1040 

1160 TEMP0=VAL. ( SEG* ( B*, 1,2> ) *3600+VAL ( SE 
Giti (B$, 4,2)) *60+VAL. (SEG$ <B$, 7,5)) 

1170 CALL DELSPR'ITE (#1 ) 

1180 SUBEND 


usare i tasti di funzione FCTN (—) e FCTN (—) per 
editare ciò che ha scritto. 

Dopo la scrittura delle ore il cursore passa automati¬ 
camente ai minuti e successivamente ai secondi, sal¬ 
tando il segno o il punto che separa i secondi dai 
centesimi. 

Il sottoprogramma trasforma il tempo tutto in secon¬ 
di e restituisce il valore calcolato nell’ultima variabile 
presente tra parentesi nell’istruzione CALL che, in 
questo particolare esempio, è stata posta uguale a S. 
E inutile aggiungere che un simile sottoprogramma 
può essere vantaggiosamente agganciato a tutti i pro¬ 
grammi di matematica e fisica che trattano il tempo. 
Chi poi possiede un sistema a dischi non dovrà nem¬ 
meno trascriverlo tutte le volte, poiché si limiterà 
semplicemente ad usare il comando MERGE. 
Quando il .sottoprogramma SUBTIME è agganciato 
al programma principale, l’istruzione CALL TIME 
si comporta come qualsiasi altra istruzione imple¬ 
mentata nel modulo di comando, con una precisa 
sintassi da rispettare. 

Il linguaggio Ext-BASIC risulterà arricchito ed am¬ 
pliato in modo personale dall’utente. 
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SINCLAIR ZX SPECTRUM 

Trucchi e bug per tutti i gusti 


dì Marcello Spero 


Questo articolo, del nostro collaboratore Stefano 
Cerimi, è rivolto principalmente ai programmatori 
che desiderano conoscere più a fondo il loro Spec- 
trum, sfruttandone al massimo le capacità. 

Oltre a trucchi di vario tipo, sia per il 16 Kbyte che 
per il 48 Kbyte verranno fatti notare alcuni dei molte¬ 
plici bug che infestano la ROM del piccolo Sinclair. 


Il registro IY 

Come molti ben sapranno, la CPU dello Spectrum 
è dotata di due registri indice, denominati IX e IY; il 
registro IY è utilizzato dal programma residente e 
non può essere modificato dal programmatore, pena 
una situazione di instabilità che nella maggior parte 
dei casi culmina con il blocco totale. 

Vedremo che è invece possibile trarre vantaggi consi¬ 
derevoli in termini di risparmio di memoria anche 
senza modificare tale registro. 

Esso infatti contiene sempre 5C3A (il decimale 23610 
corrispondente alla variabile di sistema ERR_NR) ed 
è impiegato per velocizzare la manipolazione delle 
variabili, soprattutto durante una interruzione. 

È dunque possibile “raffinare” un programma uten¬ 
te, sfruttando lo stesso principio: se per esempio 
desideriamo decrementare il seme di numeri random 
senza influenzare il contenuto dei registri, possiamo 
utilizzare DEC (IY+60) invece di: 

PUSH HL 
LD HL,23670 
DEC (HL) 

POP HL 

Utilizzando la proprietà comune che dà il nome ad 
entrambi i registri indice, nel programma BASIC, è 
possibile, manipolare byte anche oltre le variabili di 
sistema, fino ad IY+255, cioè 23865. 


L’istruzione RST 16 è poi così indispensabile? 

Le variabili di sistema A TTR P e A 7 TR_T 
È risaputo che caricando l’accumulatore con un codi¬ 
ce ASCII ed effettuando un ReSTart 16 si ottiene la 


stampa del carattere corrispondente, che equivale a 
PRINT CHR$ a. 

Se il codice ASCII è un carattere di controllo, questo 
ha lo stesso effetto che ottiene, in BASIC. Ad esem¬ 
pio: 

LD A,18 
RST 16 
LD A,1 
RST 16 
LD A,22 
RST 16 
LD A,1 
RST 16 
LD A,1 
RST 16 
LD A,83 
RST 16 

equivale a PRINT AT 1,1; FLASH 1; “R”. 

Se questo sistema è molto utile, per quanto riguarda 
il cambio della locazione di stampa d’altra parte si 
rivela piuttosto inutile per la selezione dei parametri 
di INK, PAPER, FLASH, BRIGHT, INVERSE e 
OVER. 

Si può ovviare a ciò agendo direttamente sulla varia¬ 
bile di sistema ATTiy 1 allocata al byte 23695 (oppu¬ 
re, per risultati permanenti, modificando il valore di 
ATTR P al byte 23693), sistemando nei bit da 0 a 2 il 
parametro per INK, da 3 a 5 il parametro PAPER, 
nel 6 il BRIGHT e nel bit 7 il parametro di FLASH. 
Se si vuole ottenere l’equivalente di PAPERO: INK 5: 
BRIGHT 0: FLASH 1 basta fare: LD(IY+85), A, 
LD A,133. 

È da notare che questo accorgimento funziona anche 
per il BASIC, con una POKE 23693,133. 


La routine 3082 

Prima o poi capita sempre di dover stampare una 
serie di caratteri consecutivi, che costringono l’ope¬ 
ratore ad un lungo ciclo di: 

LD A,n 
RST 16, 

il più delle volte risolto da una subroutine del tipo: 

LD B,9 
LD HL,msg 
loop: LD A,(HL) 

RST 16 
INC HL 
DJNZ loop 
RET 

msg: DB “Messaggio” 
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che occupa meno memoria rispetto alla serie di LD 
A-RST, ma ha lo svantaggio di lavorare solo con un 
messaggio di determinata lunghezza. 

Certo, si potrebbe migliorare il programmino ren¬ 
dendolo compatibile con ogni messaggio, ma perché 
darsi da fare quando ogni Spectrum è dotato di una 
routine che svolge appunto questo lavoro? 

Tale subroutine inizia al byte 3082 (COAh) ed è stata 
progettata per stampare messaggi ordinati in tabelle, 
quali sono i messaggi di errore, le key-word del BA¬ 
SIC e tutti gli altri messaggi (start tape, then press any 
key ...). 

Prima di chiamare questo sottoprogramma è neces¬ 
sario preparare una tabella organizzata come segue: 
il primo byte deve contenere 128 (80 esa); di seguito 
vengono memorizzati i messaggi da inviare sul canale 
di stampa, avendo l’accortezza di settare (aggiungen¬ 
do 128) il bit 7 dell’ultimo carattere da stampare di 
ogni messaggio. 

Il registro DE contiene l’indirizzo di base della tabel¬ 
la (il byte a 128) e l’accumulatore il numero progressi¬ 
vo del messaggio, (perché possono essercene fino a 
256 per ogni tabella). 

Riassumendo, per stampare “Hello, Spectrum” oc¬ 
corre scrivere: 

XOR A; messaggio n° 0 
LD DE, base; base di partenza 
CALL OCOAh; chiama sub 
RET 

base: DB 128, “Hello, Spectrum” 

DB 237; “m” con bit 7 set 

In questo modo è possibile anche usare codici di 
controllo e tutti i caratteri ASCII fino a 128 escluso. 


L’istruzione DRAW 

È noto che l’istruzione DRAW x, y, z non serve 
solo per tracciare linee rette, ma, mediante il parame¬ 
tro z, può determinare la curvatura della linea. 

Provate per esempio un PLOT 50,50: DRAW 0, 100, 
PI: DRAW 0, - 100, - 4.5. Se /z/ è maggiore di PI, 
succedono cose strane. 

' Provate questa curiosa linea: 

1 PLOT 50,50:DRAW OVER 1;0, 100, 222222: 
BEEP 1,30:GOTO 1 

oppure sperimentate il seguente programmino, inse¬ 
rendo per esempio i valori 16, 80, 155, 280, 300, 330, 
2t 17, 21 18. 

1 INPUT a: PLOT 50, 50: DRAW 0, 100, a: PAUSE 
0:RUN 


Errori di I/O 

Se possedete una Interface 1, scollegatela e poi 
battete: INPUT # 2;a$(+enter). Otterrete un errore 
Invalid I/O Device, come era prevedibile, dato che 
non è possibile effettuare un INPUT dal video. 

Ma, se battete qualche comando, tutto procede rego¬ 
larmente, a parte il fatto che la Lower Part non viene 
cancellata e il messaggio di errore si comporta come 
se fosse stato generato da una PRINT implicita in un 
INPUT regolare (non può cioè essere cancellato con 
DELETE. 


Il comando SAVE 

Se vi è venuto in mente di registrare su nastro la 
memoria dello Spectrum, dal primo aU’ultimo byte, e 
avete provato un SAVE “All Memory” CODE 
0,65536, avrete ottenuto un Out Of Range; se cam¬ 
biate il valore precedente con 65535, otterrete lo 
stesso risultato di un SAVE “All Memory” CODE 
0 , 0 . 

Subito vengono in mente strani dispositivi per impe¬ 
dire la duplicazione della ROM, notoriamente sotto 
Copyright, ma tutto si spiega sapendo che non si 
possono salvare più di 65279 byte per volta. 

(SAVE “All ROM” CODE 0,16384!) 


Il doppio SHIFT 

Quando il sistema attende la pressione di un tasto, 
dopo un SAVE o uno SCROLL?, se si premono i due 
SHIFT contemporaneamente, in basso riappare l’ul¬ 
timo comando diretto eseguito, o in esecuzione, e 
riappare il cursore, soggetto ai cambiamenti di stato. 
Se tutto ciò avviene con un SAVE, premendo un altro 
tasto la registrazione ha luogo, ma se ci troviamo con 
un LIST e prima di premere un tasto mettete il curso¬ 
re G oppure E, il listato proseguirà irregolarmente 
con caratteri senza senso, seguiti probabilmente da 
un Invalid Color. 


Il numerò -65536 

Tutti i valori numerici manipolati dal calcolatore 
floating-point sono memorizzati in cinque byte, ma 
con due diversi formati, come specificato dal manua¬ 
le di istruzione. 

Il numero - 65536 viene memorizzato alcune volte 
nella forma ristretta, altre volte nella forma standard 
(4 byte di mantissa più un byte per l’esponente). 


86 








Se si prova un PRINTINT -65536, si ottiene quindi-I 
a riprova di questa doppia interpretazione. 


Questi pazzi, pazzi titoli 

Se si tenta di dare un comando di SAVE con un 
titolo superiore ai dieci caratteri, il calcolatore si 
ferma con un Invalid File Name, ma attenzione! Per 
carattere si intende un codice ASCII, quindi si posso¬ 
no anche inserire codici di controllo per il colore o 
per PRINT AT x,y, e persino codici di keyword, 
ottenendo cosi titoli chilometrici del tipo “SAVE A 
NEW PROGRAM”: questo occupa dieci byte, seb¬ 
bene siano diciannove caratteri! 

Se dovete entrare in modo k, scrivete “THEN”, poi la 
parola che vi serve ed infine cancellatelo con i tasti 
cursore e DELETE. 


Bfì.SE„. 

SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 

Tel. 015/592730 

SOFTWARE per 

COMMODORE 64 

(disco o cassetta) 


NOVITÀ' 

CODICE 3 - Gioco di simulazione medica 
ALTO MEDIOEVO - Simulazione eco¬ 
nomica 

ATOMO - Simulazione centrale atomica 

BIORITMI + HIDDEN CODE 
TORRE DI HANOI + OTHELLO 
BLACK JACK 

DATA BASE SORG. - Sorgente per ge¬ 
stione archivi (solo dischetto) 


L. 30.000 

L. 30.000 
L. 30.000 
L. 30.000 
L. 30.000 
L. 30.000 

L. 50.000 


Come stampare i numeri dal linguaggio macchina 

Qualche volta può capitare, durante la stesura di 
un programma, di non trovare un metodo più sempli¬ 
ce della dispendiosa tecnica dei numeri BCD (Bynary 
Coded Decimai) per stampare i numeri da linguaggio 
macchina. 

Sulla ROM Sinclair sono presenti ben due routine, 
che eseguono tale servizio molto bene: se dovete 
stampare un numero minore di 10000 o comunque un 
valore a 8 bit. caricate il registro BC ed effettuate una 
chiamata alla sub che inizia a lAlBh. 

Per valori a 16 bit è invece necessario far eseguire 
questo segmento: 

PUSH registro da stampare 
POP BC 
CALL 11563 
CALL 11747 

Ricordarsi di aprire il canale giusto! 


SOFTWARE PER TI 9S/4A (solo cassetta) 


TILANDIA - Simulazione economica 
SUPERBOWL - Simulazione football 
americano 

SPACE TI/99 - In caccia fra le stelle 

POKER + ROULETTE 
LABIRINTO 3-D 

PYRAMID - Adventure nella piramide 
maledetta 

MEM 

CONTABILITA' CASALINGA (pratica 
gestione) 


L. 25.000 

L. 25.000 
L. 25.000 
L. 25.000 
L. 25.000 

L 25.000 
L. 25.000 

L. 50.000 


SOFTWARE PER ATARI (solo cassetta) 

ALTO MEDIOEVO - Simulazione eco¬ 
nomica L. 25.000 


A vostra disposizione per software su misura per: 


COMMODORE VIC 20 
COMMODORE C-B4 
OLIVETTI M 10 


OLIVETTI M 20 
IBM PC 
IBM XT 


Cursore vitaminizzato 

Volete avere un cursore sprint? 

Inserite una linea 1 POKE 23562,5: POKE 23561,35: 
STOP 

e poi date in modo diretto: POKE 23562,1: POKE 
23561,1 

Se fate in modo che la Lower Part contenga solo 31 
spazi, potrete far correre il cursore ad una velocità 
strabiliante, premendo semplicemente le frecce poste 
sui tasti 5 e 8. 

Quando vi sarete stancati di questo giochino indegno 


» 

Spedire in busta chiusa a: 

BA.SE s.n.c. - Casella Postale 4 - 13055 Occhieppo ini. (VC) 

Nome e Cognome- 

Indirizzo___ 

Cap_Città_Provincia_ 

VIC 20 □ C64D IBM PCD MIOO M20D AtarID TexasD 

Ordino n“ _ D Disco □ Cassetta_ 

Ordino n°_□ Disco □ Cassetta- 

Per un totale di Lire_ 

Pagamento □ Allegato assegno non (rasi. sped. celere 
□ Contro assegno + spese postali 
























Figura 1. Sono qui 
descritte alcune variabili 
di sistema. Il significato 
tra parentesi è da 
attribuire nel caso che il 
bit sia 0. 


NOME VARIABILE 

P FLAG 

BYTE 

27697 

BIT 

0-1 

SIGNIFICATO 

OVER 1 (0 = temporaneo, 1 = permanente) 



2-3 

INVERSE 1(2 = temporaneo, 3 = permanente) 



4-5 

INK 9 (4 = temporaneo, 5 = permanente) 



6-7 

PAPER 9 (6 = temporaneo, 7 = permanente) 

FLAGS 

23611 

0 

Deve essere stampato CHRS 32 prima del testo 



1 

Invio di dati alla stampante (al video) 



2 

Cursore in modo L (Modo K) 



3 

Stampa in modo L (Modo K) 



5 

È stato appena premuto un tasto 



6 

Variabile numerica (vedi stringa) 



7 

Esecuzione di una linea BASIC (controllo sintassi 

FLAGS 2 

23658 

0 

Occorre pulire lo schermo 



1 

Occorre pulire il buffer della stampante 



2 

Occorre stampare CHRS 32 



3 

Caps Lock 



4 

È in funzione il canale "K” 

MASK P 

23694 

0/2 

INK 8 



3/5 

PAPER 8 



6 

BRIGHT 8 



7 

FLASH 8 

MASK T 

23696 

0/2 

INK 8 (temporaneo) 



3/5 

PAPER 8 (temporaneo) 



6 

BRIGHT 8 (temporaneo) 



7 

FLASH 8 (temporaneo) 

TV FLAG 

23612 

0 

Stampa sulla Lowcr Part (Upper Part) 



3 

È cambiato il modo-cursore 



4 

È richiesto il listing automatico 



5 

Pulisci la Lower Part non appena viene premuto ur 




tasto 

FLAG X 

23665 

0 

Stringa non indicizzata 



1 

Variabile da inizializzare (già esistente) 



5 

Stato di INPUT (stato di Editor) 



6 

Operazione con risultato stringa (numerico) 



7 

INPUT LINE (INPUT regolare con “”) 


di programmatori del vostro calibro, tentate di dare 
RUN: una volta sola, mi raccomando! 

La funzione SCREENS 

Questa funzione ha il compito di rilevare la presen¬ 
za sul video di un carattere standard: se alla locazione 
17,10 è stata stampata una X maiuscola, SCREENS 
(17,10) vale “X”. 

Questa utile opportunità è però limitata ai soli carat¬ 
teri ASCII presenti su ROM, ovvero da “space” fino 
al simbolo di copyright: per i caratteri grafici, gli 
UDG e per qualsiasi altra combinazione in alta riso¬ 
luzione, come con OVER, PLOT, INVERSE, 
DRAW e CIRCLE, viene riportata una stringa nulla. 
Se volete avere la possibilità di individuare la presen¬ 
za dei soli UDG, non dovete fare altro che modificare 
il valore della variabile di sistema CHARS al byte 
23606, prima di effettuare la lettura, e ristabilire in 
seguito il suo valore originale. 

Facendo combaciare la “A” grafica con la A maiu¬ 
scola (CHRS 65), ogni CHRS 144 che verrà incontra¬ 
to dalla SCREENS verrà letto come una A (65). 

Se non ci credete, copiate esattamente il seguente 
demo: ricordate comunque che se CHARS non viene 
rimesso a posto, ogni PRINT successivo verrà altera¬ 
to. 

I GO TO IO 

5 BORDER 1: BORDER 00000000000006: GO 
TO 5 


10 PRINT AT 11,15;CHR$ 144 

20 POKE 23607, PEEK 23676-2 

30 POKE 23606, 80 

40 LET r$= SCREENS (11,15) 

50 POKE 23606,0: POKE 23607,60 

60 IF r$=CHR$ 65 THEN GO TO 5 

70 PRINT.???Hai battuto male qualcosa?!!!?” 


Flag & Flag 

Il manuale di istruzioni, nell’appendice che descri¬ 
ve le variabili di sistema, tratta l’argomento con mol¬ 
ta superficialità e non spiega, tra l’altro, il significato 
di alcune di queste: 

FLAGS, TV_FLAG, FLAGS2, FLAGX e PFLAG. 
Ogni programmatore che si rispetti dovrebbe almeno 
avere la curiosità di conoscerne lo scopo ed i possibili 
utilizzi, dato che in base allo stato di questi bit vengo¬ 
no decise molte cose interessanti. 

La figura 1 illustra il significato dei bit quando sono 
settati, mentre tra parentesi è indicato il significato di 
quando sono azzerati. 

É possibile modificare a proprio vantaggio, soprat¬ 
tutto da linguaggio macchina tutti i bit di P_FLAG, 
MASKP e MASK T. Inoltre si può settareo resettare 
il bit 3 di FLAGS 2 per il CAPS LOCK. 

Gli altri bit vanno modificati solo se si conoscono 
perfettamente gli effetti conseguibili. 


88 













IrajSP"' Trucchi e bug 

per tutti i gusti_ 

Le routine alfanumeriche 

Se bisogna determinare la natura del codice ASCII 
contenuto nell’accumulatore, queste utili routine 
possono servire di aiuto. 

Chiamando la 11400, il carry è alto, se il codice 
identifica una lettera o una cifra. 

La 11405 ritorna con il carry settato, se il codice 
identifica una lettera (da A a Z e da a a z). 

La 11547 infine resetta il carry, se il codice rappresen¬ 
ta una cifra (0-9). 

PAUSE in linguaggio macchina 

Se vi capita di dover creare una pausa superiore al 
centesimo di secondo, i cicli a vuoto rappresentano 
una soluzione ben poco agevole. 

Caricando in BC la lunghezza della pausa in cinquan¬ 
tesimi di secondo, c chiamando la 1F3D, ottenete 
una PAUSE bc identica all’equivalente BASIC (ter¬ 
mina subito, se si preme un tasto; LD BC.OOOO com¬ 
porta una PAUSE 0). 

Se invece è necessaria una pausa non abortibile, tene¬ 
re presente che l’istruzione HALT impiega 20 millise¬ 
condi per essere eseguita. 

Un ciclo del tipo: 

LD B,() 

KiHALT 

DJNZK 

darà una pausa di circa cinque secondi e dodici cente¬ 
simi, sempre che l’interruzione mascherabile sia atti¬ 
va (EI). 

CLS per Lower Part 

Se in un programma viene usata la parte inferiore 
del video con PRINT # 1; oppure PRINT # 0; 
dopo un po’ sorge il problema di come cancellarla 
senza stamparvi sessantaquattro spazi: la soluzione 
consiste nel far eseguire un comando INPUT 
senza variabile, e ... voilà! 

Il cursore girovago 

Se su uno Spectrum issile 2, date una POKE 
23738,0, avvengono fatti strani, tra cui la comparsa 
del cursore dalla parte superiore del video e la possi¬ 
bilità di editare alla maniera dei Commodore ... 

Per ripristinare il tutto date una POKE 23738,75. 

Il registro HL 

Quando un programma utente ritorna al BASIC, 
causa una dimenticanza troppo vistosa, il registro 
HL del banco 1 (selezionato con il comando EXX) 
deve sempre contenere il valore decimale 10072, altri¬ 
menti si potrebbero verificare dei reset accidentali. 


Se scrivete un programma o chiamate routine su 
ROM che alterino tale registro, dovrete terminare 
con: 

EXX 

LD HL, 10072 

EXX 

... (RET) 

Caratteri in FLASH 

Per stampare un carattere lampeggiante senza mo¬ 
dificare gli attributi (esempio un cursore) caricate 
l’accumulatore con il codice ASCII desiderato e poi 
fate una CALL 18C1. 


Super numeri 

Sapete che il vostro Spectrum, in certe occasioni, 
può memorizzare fino a 12 cifre tutte significative? 
Provate LET f=0.000() 12345678, per esempio, e poi 
PRINT f. 

Il mistero delle stringhe-fantasma 

Provate a dare PRINT “qualsiasi stringa” -TSTR$ 
(un numero minore di .5). 

La stringa scomparirà. Se date un PRINT “Ciao" + 
STR$ 0.3, avrete come risposta “0.3”. 

Questo curioso effetto è dovuto ad uno sbilancia¬ 
mento del “calculator stack”, che non “vede” la 
stringa precedente la STR$. ■ 


La J .soft 

CERCA 

per la nuova rivista Super Apple 

un redattore da assumere, 
con ampia e provata 
conoscenza dei sistemi Apple. 

Si richiede la buona 
conoscenza della lingua inglese, 
residenza Milano/dintorni. 
Inviare curriculum completo a 
J.soft - Via Rosellini, 12 
20124 MILANO 




















Apple 

Per Apple cedo in blocco vastissima discoteca di programmi 
corredati di manuale. Scrivere o telefonare a Luigi Palumbo - 
Via A. Ristori. 8 - 00197 Roma - Tel. 06/802783 _ 

Compro programmi di ogni genere per Apple Ile. Inviare elen¬ 
chi a: Angelo Sala - Via Pimi, 7 - 20077 Melegnano (MI) 
Vendo libri per Apple tra cui "Apple memo" e libri per TI 99/4A 
Telefonare dopo le 14. Vero affare! Angelo Accomando - Via 
Goltie ri, 4 - 14100 Asti - Tel. 0141/52323 _ 

Vendo, cambio software per Apple - Ile - Ile. Vasta scelta di 
programmi corredati dai relativi manuali. Ultime novità. Richie¬ 
dere la lista completa a: Gianluca Pomponi - Via Raffaello. 5 - 
56020 Castel del Bos co (PI) - Tel. 0571/48801/ _ 

Scambio, vendo senza fini di lucro software Apple. Dispongo di 
circa 4.000 programmi: dai gestionali all'ingegneria, dai giochi 
alle Utilities. Molte novità 1984. Telefonatemi! Massimo Gilar- 
detti - Via Borsi. 62 - 28100 Novara (NO ) - Te l. 0 321/474639 

Cerco per Apple. Odesta Chess 7.0 - Micr Expert - Logica 
Simbolica - Programmi didattici e scientifici - Sargon III - Flight 
simulator II - Chivalry. Antonio Scala - Via Giacomo Imbroda. 39 

- 80035 Nola (NA) - Tel. 081 /8 234710 __ 

Vuol aderire ad un Apple Club nazionale? Avrai a disposizione: 
bollettino (anche su dischetto), hot line per domande e informa¬ 
zioni. software libero, sconti. Scrivi a: Golden Apple Club - Via 
Tiso da Camposampiero. 26 - 35100 Padova - Tel. 049/30310 

Cambio, vendo oltre 350 programmi per Apple II. Ile. Ile gestio¬ 
nali di ingegneria, utility, giochi, posseggo inoltre l'ultima ver¬ 
sione del UCSD Pascal 1.2, Apple works. Dossier mon. Tutti 
con i manuali completi, Antonio Rossi - Via Arezzo. 199 Villa 
Pigna - 63040 Ascoli Piceno - Tel. 0736/401247 
Avete bisogno di software per Apple? Dispongo di oltre 1500 
titoli di ogni genere. Incredibile scelta. Annuncio sempre vali¬ 
do. Astenersi non interessati. Tristano Marchini - Via Rosselli. 6 

- 58033 Castel del Piano. 6 - Tel. 05644/955549 

Causa passaggio a sistema Macintosh vendo Apple II Plus, 
scheda 80 colonne. ROM minuscole, scheda originale 16 
Kbyte. Apple Writer II. VisiCalc e d altri per L. 1.100.000. Rivol¬ 
gersi a: Franco Agrusti - Via Risorgimento. 93 - 74017 Mottola 
(TA) - Tel. 099/6863908____ 

Stiamo costituendo un club di utenti del PC Macintosh. Cer¬ 
chiamo nuovi soci per scambio esperienze e programmi. A 
coloro che intendono acquistarlo possiamo far avere forti 
sconti. Telefonare o scrivere a: Francesco Barravecchia - Via 
Stephenson. 16 - 20157 Milano - Tel. 02/357548 


Commodore 


Per VIC 20 vendo 6 programmi da riviste a L. 10000.3 program - 
mi inediti "self made" a L. 10000.4 programmi alfabeto Morse L. 
10000. In blocco L. 20000. Cambio programmi. Piero Giorgi - 
Via Risorgimento. 8 - 55052 Fornaci di Barga (LU) - Tel. 752442 

Cambio e/o vendo molti giochi per Commodore 64. tra i quali: 
Popoeye. Paint magic 2, Karaté. Es games. Summer games II. 
Decathlon. Beamraider. Pittali I e II. Pengo II. Flight simulator II e 
altri. Carlo Micheli - Via San Primo. 6 - 20121 Milano - Tel. 
02/796868 _ 

Vendo Commodore 64 a L. 490000. disk drive 1541 L. 500000. 
monitor monocromatico alta risoluzione L. 150000. stampante 
MPS801 L. 500000. Tutto in ottime condizioni, con imballaggio. 
Cedo programmi. Telefonare ore 13-15. Ottavio Profeta - Via S. 
Elia ai Mir.. 29 - 80137 Napoli - Tel. 081 /442061 _ 

Vendo listati di programmi per VIC 20. Commodore 64. Spec- 
trum 16/48. TI 99/4A. Rispondo a tutti, prezzi eccezionali. 
Telefonate per ulteriori informazioni, non in orario di scuola 
naturalmente. Paolo Bucovaz - Piazza Derna. 207 - 10100 
Torino - Tel. 011/202100 _ 

Vendo VIC 20 due mesi di vita, registratore, espansione 16 
Kbyte. joystick, 22 cassette con 120 programmi. 2 libri. 50 riviste 
per VIC. Il tutto a L. 400000 trattabili. Gli interessati scrivano. 
Alberto Cataldi - Via Bersaglieri. 37 - 34073 Grado (GO) 

■ Compro, cambio, vendo programmi per CBM 64. Ne ■ 

■ abbiamo più di 200 tra i quali le ultime novità: Flight ■ 

■ Simulator II. Space taxi. ecc. Prezzi favolosi. Scrivere ■ 

■ o telefonare ore 18-19.30. Riccardo Lorusso - Viale ■ 

■ Montelto. 5 - 20154 Milano • Tel. 02/6556024 ■ 


Vendo per Commodore 64 i seguenti programmi a L. 5000 
l'uno: Zaxxon - Flipper - Pooyan - Pole position - QBert - 
Basket - Scacchi - Simon’s BASIC - Pit stop - Frogger 3D e tanti 
altri, tutti in LM. Alessandro Potenza - Via Calefati, 156 - 70100 
Bar. - Tel. 080/217466 _ 

Per C64 vendo i seguenti programmi: Turbo tape. Pole position. 
Mundial soccer. Frank - Avenger - Pakacuda - Biliardo - Tank 
attak - 64Doctor. Disco o cassetta. Annuncio sempre valido, 
prezzo L. 10000 cadauno. Stefano Carbotti - Viale della Libertà. 
125 - 74015 Martina Franca (TA) 

Cambio, vendo numerosi programmi per Commodore 64. In¬ 
viare lista, rispondo a tutti. Antonio Maio • Via S. Agostino. 9 - 
98057 Milazzo (ME) - Tel. 090/92^261 _ 

Vendo per C64 programma Totocalcio: eliminazione automati¬ 
ca delle colonne con scarsa probabilità di uscite (parametri 
programmabili: nr. massimo "1". nr. massimo "X". nr. massimo 
"2”. ecc.). In regalo tabellone elettronico. Prezzo L. 25000. 
Telefonare dopo le ore 19 - Valmadre - Tel. 0342/702761 
Affarone! Vendo VIC 20 con un anno di vita, espansione di 
memoria 3 - 8 -16 Kbyte swichabile.programmers'aid.cartrid- 
ge "Avenger ". 40 programmi su nastro (giochi e utility). L 
240000. Gianni Dasin. - Via Pio XII Campagnola. 26 - 37050 S. 
Maria di Zevio (VR) - Tel. 045/517374 
Cambio, vendo software per CBM 64. Cerco nella zona di 
Catania possessori di 64 per scambio materiale. Fabio Bellas- 
sai - Via C. Lombroso. 13 - 95100 Catania - Tel. 095/415353 

Cambio, vendo favolosi programmi per Commodore 64. Scri¬ 
vetemi inviando la vostra lista, vi manderò subito la mia (i prezzi 
sono veramente stracciati). Angelo Castorina - Piazza Trento. 2 

- 95128 Catania 

Vendo 40 programmi per CBM 64 in cassetta, giochi (con 
Turbo o senza), tra i quali Sintetizzatore vocale. Grand prix, 
Autocross. Biliardo, ecc. Il tutto a L. 35000. Telefonate. Carlo 
Troili - Via Tito Labieno. 122 - 00174 Roma - Tel. 06/7482687 

Vendo su cassetta per CBM 64 sviluppo Totocalcio Ubaldo 
Mancini - Via Val della Torre. 174 - 10151 Torino - Tel. 
011/7391285 _ 

Vendo per VIC 20 100 programmi utili e videogame: Bioritmi. 
Gran prix. Caccia uccelli. Caccia all'uomo. Basket e tanti altri, 
per la somma di L. 30000. Alessandro Duoccio - Via per Cinisel- 
lo. 18 - 20054 Nova Milanese (MI) 

Compro, cambio, vendo programmi per CBM 64. Ne posseggo 
circa 400. Prezzi veramente bassi Cerco inoltre monitor a 
colori usato. Paolo Donalisio - Via Torino. 162 - 12038 Sa viglia¬ 
no (CN) - Tel. 0172/33323_ 

Cambio, vendo software per CBM 64. Ho circa 180 programmi 
tutti di ottima qualità che vendo a prezzi eccezionali. Invio lista a 
chi mi invia la sua. Rispondo a tutti. Assicuro massima serietà. 
Giuseppe Mascali - Via R. Margherita. 573 - 98028 S. Teresa 
Riva (ME) - Tel. 0942/791692 

Cambio programmi di ogni tipo per Commodore 64 tra i quali: 
Manie miner. Ugh, Forbidden. Solar System e molti altri. Richie¬ 
dere o inviare lista a: Stefano Curtarolo - Via Marmolada. 26 - 
31015 Conegliano (TV) - Tel. 0438/35797 

Vendo VIC 20. registratore. 16 Kbyte. 3 Kbyte. Superexpander. 
Motherboard. cartuccia Dragonlire e Demon attack. un centi¬ 
naio di giochi a L 450000 In regalo videogioco Hammex HMG 
2650 e due cartucce! Michele Turiello • Via Fiodalisi. 1 - 20146 
Milano - Tel. 02/4225282_ _ 

Cambio giochi e utility per VIC 20. Telefonare dalle ore 17 alle 
ore 18 oppure scrivere. Riccardo Asioli - Via Camane, 2 - 48020 
Savio (RA) - Tel 0544/927415 _ _ 

Cambio, vendo programmi su nastro o disco per C64. Alcuni: 
Zaxxon. Crazy kong. Sam reciter. Magic desk. Pet speed. Word 
Pro 3. Simon's BASIC. Blue Max. Turbo tape. Tonino Viozzi - 
Via della Repubblica. 49 - 63029 Servigliano (AP) -Tel. 
0734/75244 

Compro programmi su cassetta per Commodore 64. Cerco 
soprattutto giochi e utility. Inviare lista corredata di relativi 
prezzi Annuncio sempre valido, rispondo a tutti. Giuseppe 
Vicari - Via Sardegna. 66 - 90144 Palermo - Tel. 091/528393 

Per Commodore 64 vendo cassetta con 5 giochi a scelta tra: 
Pole position. Frogger. Falcon patrol. Galaxian. QBert, Cam¬ 
melli. Attack. Acquaplane. Fort Apocalypse. Crunck a L 25000. 
comprese spese postali' Fabio Cerfogli - Via Sicilia. 120 • 
91019 Valderice (TP) 

Vendo corso di BASIC (occupante una cassetta C90) per CBM 
64 diviso in 21 lezioni, più 5 videogiochi, anch'essi per CBM 64. 
tutti originali tra cui. Fort Apocalypse. Crazy kong. Pole posi¬ 
tion; tutto a L. 30000. Massimo Falzetti - Via Aosta. 16 - 08100 
Nuoro - Tel. 0764/33648 

Vendo 10 giochi originali per CBM 64. tutti registrati su casset¬ 
ta. a L. 30000. tra cui: Fort Apocalypse. Crazy kong. Scacchi. Pit 
stop. Hamburger). Massimo Falzetti - Via Aosta. 16 - 08100 
Nuoro - Tel. 0764/33648 __ 

Vendo VIC 20. 16 Kbyte. 30 programmi (Pacman - Mathema- 
tics2). libro istruzioni e varie riviste a L. 300000 Primo Micarelli 

- Via dei Molini. 61 - 58018 P. Ercole M Argentario (GR) - Tel. 
0564/831132 


Vendo software di ogni genere per C64, Utility, giochi, novità 
americane. Mauro Miccinilli - Via G. Armellini. 21 -00143 Roma 
- Tel. 06/5917903 _ 

Cerco possessori di CBM 64 per eventuale scambio di pro¬ 
grammi. ne possiedo oltre 150. Telefonare o scrivere a: Stefano 
Curtarolo - Via M. Marmolada. 26 - 31015 Conegliano (TV) - 
Tel. 0438/35797 

Cambio, compro, vendo programmi per C64. Posseggo circa 
2000 programmi tra cui le ultime novità. Se siete interessati 
telefonate dopo le 20 o scrivete (possibilmente spedendo lista). 
Giovanni Virga - Via Fratelli Garrone. 62/36 - 10122 Torino - 
Tel. 011/6061336 _ 

Ciao a tutti*** Sono un ragazzo di 18 anni con unC64chenon 
vuol proprio imparare la matematica del liceo scientifico Mi 
volete aiutare Marco Caldana - Via Genova. 10 - 17027 Pietra 
Ugure (SV) - Tel. 019/612622_ 

Occasione: vendo VIC 20 nuovo, modulo espansione 8 e 16 
Kbyte. 8 cartridges. Programmerà Aid. floppy disk, stampante. 
Machine language. 5 dischetti, joystick, manuali in italiano, 
televisore Telefunken per un valore commerciale di L. 2500000. 
Vendo a L 1200000. Massimiliano Ottochian - Settima Strada. 
37 S. Felice - 20090 Segrate (MI) - Tel. 02/7531123 


Vendo per Commodore 64 1 videogame a scelta e un floppy 
disk a L. 20000 e altro software aprezzi convenientissimi. Mau¬ 
rizio Coccorese - Via Gentile. 108/D - 70126 Bari - Tel. 49137 

Siamo il Dino Corps Club: vendiamo e scambiamo software per 
CBM 64. Possediamo circa 600 programmi fra giochi e utility. 
Abbiamo programmi Actvision e tutte le ultime novità, anche 
manuali. Richiedete la lista a: Alfonso Di Noia - Via Davila, 61 - 
00179 Roma 

Cambio, vendo per C64 I seguenti programmi su nastro: Il 
Biliardo. Pac man. Pole position. Quix, Arcadia. BC. King kong. 
DBase, Pianoforte e altri 6 programmi a L 25000. oppure cam¬ 
bio con Calcio 3D. Simulatore di volo. Scacchi. Massimo Guc- 
cione - Via Serraspiga. 14 - 87100 Cosenza - Tel 0984/33988 

Per CBM 40/8032: personalizzate il vostro PET aggiungendo 
nuovi comandi e routine per un totale di 24 Kbyte ROM profes¬ 
sionale a L. 600000. Compilate i vostri sourcecon il famoso DTL 
compiler più manuale più chiave L. 150000. Paolo Stella - 
Strada 62. 28 - 67100 L'Aquila - Tel, 0862/23273 

Cambio, vendo programmi per CBM 64. Inviate la vostra lista e 
richiedetemi la mia. Il prezzo dei giochi che vendo va dalle L. 
3000 in poi. Elenco alcuni: Pacman, Donkey kong. Pole posi¬ 
tion. Foresta del terrore. Giampaolo Fallonio - Via Del Mare. 
111 - 66034 Lanciano (CH) - Tel. 0872/31152 

Vendo per Commodore 64. solo nella zona di Napoli. 15 dei più 
famosi videogiochl più Turbo tape a L. 50000. Supporto: cas¬ 
setta. Telefonare ore 20-21. Antonio Sorrentini - Corso Europa. 
8 - 80127 Napoli - Tel 081/646316 


Vendo software per Commodore 64. Posseggo oltre 170 pro¬ 
grammi. alcuni originali americani. Per richiedere lista scrivere 
a: Vito Mona - Via Perrese. 91 /C - 70032 Bitonto (BA) - Tel. 
611175 

Cambio software per C64 di ogni genere su disco o cassetta 
(preferibilmente su disco) La proposta è sempre valida. Scrive¬ 
re o telefonare ore pasti. Antonio Gilardi - Via S. Carlo Borro¬ 
meo. 9 - 22049 Valmadrera (CO) - Tel. 0341/582949 

Vendo cassetta contenente: Turbo tape, Zaxxon. Calcio Mun¬ 
dial. Conto corrente, contabilità magazzino a L. 15000. Grafica 
coloratissima. Elio Gagliardi - Via P.A. Valignani, 223 - 66100 
Chieti - Tel. 0871/31236 

Cerco software per C64 di utilità, gestionale, ingegneria, ecc. 
Inviare elenco con prezzi e specificare se sono corredati da 
manuale. Marco Cavriani - Via Manzoni. 68 -15067 Novi Ligure 
(AL)_ 

Vendo per C64 disco contenente: Simon's BASIC, Magic desk. 
S A.M.. Mundial Soccer, a L 50000 o cassetta contenente: 
Mundial Soccer. Pitstop. Baseball. Easy Script. Simon's BASIC 
a L. 25000. Michelangelo Fumagalli - Via Monte Generoso, 52 - 
20155 Milano - Tel. 02/398033 

Vendo scheda per VIC 20 che permette di salvare e caricare su 
nastro alla velocità del disk drive a L 38000. Svendo inoltre 
moltissime cartridge e vari accessori (Motherboard. Light pen. 
ecc...). Gianni Bozzi - Via Savona. 16/S - 20099 Sesto San 
Giovanni (MI) - Tel. 02/2407825 

Per CBM 64 vendo tutti 1 programmi ai prezzi più bassi. Ultime 
novità: Summer games. Break dance. Gyruss; sia su nastro che 
su disco. Valerio Rossetti - Via Rimembranze di Greco. 51 - 
20125 Milano - Tel. 02/6890677 

■ Compro, cambio software CBM 64 esclusivamente ■ 

■ novità 1984/85. Disponibili titoli di recente imporla- ■ 

■ zione: Nautilus, Smuri e altri. Per informazioni ■ 

■ M.F.F.C. Soft - Via S. Lucia. 56/3 - 35100 Padova - ■ 

■ Tel. 049/653482 ■ 

Per fine hobby svendo tutti i programmi su disco per Commo¬ 
dore 64 a prezzi bassi. Telefonare ore serali o scrivere per 
accordi Giuseppe Borracci - Via Mameli. 15 - 33100 Udine - 
Tel. 0432/291665 
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Per C64 vendiamo molli giochi ed Utilities Vendiamo 2 novità 
interessantissime Monitor e Assembler superprolessionali in¬ 
sieme a L. 100.000 Scriveteci al più presto per liste Cosimo 
Mazzotta • Via S. Emidio. 3/3 - 67016 Paganica (AQ) • Tel 
68285_ 

Cambio o vendo programmi originali per Commodore 64 a 
prezzi vantaggiosissimi Telefonare a: Francesco Antomoni - 
Via Raffaele De Cesare. 30 00179 Roma - Tel. 06/7820081 
oppure ore serali 06/786581 

Cambio, vendo programmi per il CBM 64. normali o con Turbo, 
tra cui; Fort Apocalypse. Pole position. Frogger e molti altri. 
Telefonare Torino e dintorni. Alessandro Pugno - Via S. Maria. 
40/a - 10040 Givoletto (TP) - Tel. 9847S28_ 

Dopo aver venduto un Commodore 64 mi sono rimasti alcuni 
programmi di giochi (circa 150) che svendo singoli o in blocco. 
Annuncio sempre valido per tutta Italia Antongiulio Pisani - Vin 
PosiIlipo. 69/9 • 80123 Napoli Tel. 081/7695397 

Cambio programmi CBM 64 Disponibili oltre 400 programmi, 
sia giochi che Utilities con manuali. Risposta assicurata a chi 
invierà la propria lista. Mann Monti • Casella Postale. 45 - 
55052 Fornaci di Barga (LU) 

Vendo 50 giochi Commodore 64 ad alte prestazioni, in linguag¬ 
gio macchina 5 a L. 20.000. Dispongo di Zaxxon, Forbiddon 
foresi. Skramble e molti altri. Telefonare dalle ore I4.30al!eoro 
17 (sabato escluso) lazzanm Aurelio - Viale Gramsci. 153 • 
20099 Sesto S. Giovanni (Mi) - Tef 02/2472664 

Vendo, cambio fantastici programmi per Commodoro 64. Gio¬ 
chi ed utilità e tante novità ogni mese. Richiedere il catalogo 
gratis. Telefonare ore pasti o scrivere Matteo Quadrelli - Via 
Petrarca. 10 - 40136 Bologna - Tei. 051/580596 

Solamente con l’UIIracopy, con il Bi-Secfor, con il Diskmimic 5, 
con il Clone 2 potrai copiare i migliori programmi in giro per 
CBM 64 Per informazioni rivolgersi a Paolo Brgon - Via S 
Marco. 177/A - 35020 Ponte di Brenta (PD) - Tel 049/629117 

■ Per Commodoro 64 dispongo di 700 programmi di ■ 

■ ogni genere: gestionali, utility, linguaggi, per radioa- ■ 

■ malori. Word Processor, copiatori, bellissimi giochi ■ 

■ per disco e nastro Massimo Cantelli - Via Corso. 40 - ■ 

■ 40051 Altedo (BO) • Tel. 051/871270 ■ 

Vendo fantastici videogame per CBM 64 (Potè position. Soc¬ 
cer. Buck Rogers. Forbidden Foresi e altri) a L 4.000 cadauno 
Ne regalo 3 a chi ne acquista 10. Telefonare dallo 12 alle 14 
Roberto Busi - Via Puricelli Guerra. 289 - 20099 Sesto S 
Giovanni (MI) - Tel 02/2489785 

Per C8M 64 vendo 50 programmi a scelta su cassetta (tra cui 
Simon's BASIC, Assembler e i miglioro videogames) e m regalo 
il favoloso Turbo tape a sole L 100 000 Richiedete la lista 
Beppe AJmansi - Via G Chiassi. 6 • 25100 Brescia - Tel 
030/306307___ 

Cambio software por CBM 64 Dispongo di circa 60 programmi 
inviate la vostra lista, garantisco risposta a tutti. Maurizio Moro 
Via Europa. 8/C • 39031 Brunico (BZ) - Tel 0474/2019 

Cambio, vendo giochi per il Commodoro 64 solo a Torino o 
dintorni Telefonare dalle ore 19 in poi. Angelo Tosti - Via 
Giacono Bove. 11 - 10129 Tonno - Tel 011/504992 

Vendo programmi per Commodore 64 Vendo circa 200 pro¬ 
grammi famosissimi fra giochi e utility a L 2000 l'uno. Una 
cassetta con 30 giochi t. 30000 Francesco Cintino - Via B 
Bompiani. 34 - 00147 Roma - Tel 06/5134564_ 

Cambio programmi su cassetta per Commodore 64 Inviare 
lista. Angelo Di Ciccio • 65100 Pescara 
Dispongo di più di 100 programmi per CBM 64 Olimpiadi. 
China miners. BC. Aztec. Super Pipielme. Pet speed. FORTH 
64, Super Base. Easy script. Hesmon. ecc Risponderò a tutti 
Antonio Adorno - Via Teracali, 81 - 96100 Siracusa (SR) - 
31092__ 

Per Commodore 64 vendo 140 dischi pieni di software a L 
650000 più il costo dei dischi Lasciare recapito. Marcello Ca¬ 
rne - Via Poggio Vallesana - 80016 Morano (NA) - Tel 
081/7422844 

Per Commodore 64 cembro o vendo ottimi programmi quasi 
tutti in LM Richiedete lista, rispondo a tutti Annuncio sempre 
valido. Francesco Petrelli - Via Morino. 14 - 73100 Lecce - Tel 
0382/591196 

Cambio, vendo software su cassetta per CBM 64. Dispongo di 
favolosi e nuovissimi giochi e di splendide utility. Inviare lista o 
richiesto Fran ca tooDorila • Via Ugo SoM. 9 - 9012 » Patormo 


Vendo Turbo Slmon's. che realizza l'aggancio tra Turbo tape e 
Simon’s BASIC Salvate velocemente su cassetta 1 vostri pro¬ 
grammi di grafica, ecc Originale; spedisco cassetta contrasse¬ 
gno a L 20000 Telefonare ore serali. Edoardo Patrucco - Via 
Alessandria. 181 - 15040 San Germano/Casale (AL) - Tel. 
0142/50343 

Cambio per il Slmon's BASIC: Turbo tape e Hesmon. fantastici 
giochi (Frogger 3D. Hunck Back, ecc.)e splendide utility (Char- 
Editor. SuperBASIC. Sprit e utility, occ.). Massima serietà. Ales¬ 
sandro Zangirolami - Via Strada Genova. 55 - 10024 Moncalieri 
(TO) - Tei. 011 /6406778 _ 

Cambio, vendo più di 350 programmi tra giochi. Utilities e vari 
per II Commodore 64 La lista del programmi è in continuo 
aumento e 1 prezzi per la vendita sono più che modici. France¬ 
sco Manno Via A Omodeo. 18/4 - 70125 Bari • Tel 
080/225088__ 

Véndo numerosi programmi su disco o cassetta per Commo¬ 
dore 64 a prezzi favolosi Vendo inoltre Super expander 8 Kbyte 
per VIC 20 a L 50000 più spese postali e cartndge Sargon 2 
(Scacchi) per VIC 20 a L. 15000. Davide Tiozzi - Via N Sauro. 
134 - 48015 Cervia (RA) - Tel. 0544/971328_ _ 

Vendo per C64 I seguenti programmi: Hesmon L 1500 Magic 
desk L 2000 Koala L 2500 UltraBASIC L 20000. OmniCalc L 
25000; Sam reciter L 25000; altro utility e games a L 5000 - 
15000 Chiedi la listai Giovanni Sparacino - Via San Giovanni. 
17 - 330170 Pordenone (PN) - Tel 0434/35168 

Offerta eccezionale per tutti I possessori di VIC 20 Paghi 1 
prendi 35. Per sole L. 17000 vendo più di 35 giochi quasi tutti in 
LM per computer in versione baso o 10 giochi LM 8-16 Kbyte. 
Anticipo minimo L 2000. il resto in contrassegno. Scrivere per 
ulteriori informazioni Michele Capurso - Via Mofiere.1 • 06068 
Tavernetle (PG) 

Cambio, vendo oltre 100 programmi per C64 fra cui molti 
bellissimi (Decathlon. Baseball, ecc.) a L 3000 ognuno. Richie¬ 
dere catalogo Gianluca Caldani • Via Pisacane. 2 - 55041 
Camaiore (LU) • Tel. 68203 

Vendo 50 giochi su cassetta per C64. Ultime novità (Beach 
Head. Popeye. Basket. Mr Mephisto. Zaxxon. ecc.) a L 40000 
Cambio con altri giochi Annuncio sempre valido. Ametilio 
Gioia • Via Tuscolana. 599 - oo174 Roma Tel. 06/7661512 
Vendo, cambio numerosi programmi per C64 Giochi e utility. 
Per la lista scrivere a: Alberto Deaglio - Corso Vittorio Emanue¬ 
le. 237 - 10139 Torino - Tel 011/758357_ 

Vendo VIC 20. registratore C2N.espansione 3-16-24-32 Kbyte. 
12 cartucce, decine di giochi e altro su cassetta, loystick. libri e 
riviste; assistenza e serietà; L 600000 trattabili Paolo Basola - 
Via Bacigalupo. 4/30 - 16122 Genova - Tel 010/888894 

Vendo, cambio programmi, giochi, utilità per CBM 64; Biliardo. 
Clowns. Pole position. Avenger. Popeye. Soccer e altri; Magic 
desk. Easy Script. Cale Result. Simon's BASIC Prezzi trattabili 
Telefonate e scrivete, scrivete. Mario Cappelletto - Via S. Chia¬ 
ra. 61 - 00186 Roma • Tel. 06/6541753 
Per Commodore 64 vendo programmi su nastro o disco a 
prezzi di svendita per cambio computer. Telefonare ore pasti, 
preferibilmente la sera. Borracci Giuseppe • Via Mameli. 15 - 
33100 Udine • Tel 0432/291665 _ _ 

Compro, cambio vendo novità giochi, Utilities e gestionali solo 
su nastro Dispongo di Popeye, Pillali 1 e 2. Cale Result. Easy 
Script. Simon A chi invia lista rispondo con la mia Alessandro 
Barducci - Via Saraceno. 39 - 44100 Ferrara Tel. 0532/39150 

Vendo per VIC 20 una cassetta contenente 10 splendidi video¬ 
giochi (Blitz. Raid on Isram, Dedalo 3D) a sole L. 6.000 più 
eventuali spese di spedizione. Massima serietà, è un'occasio¬ 
ne da non perdere Federico Formio • Strada S. Vincenzo. 40/9 
- 10131 Tonno - Tel 011/6503285 _ _ 

Vendo vldeoglochl per CBM 64 (Soccer. One on one, Pit stop. 
Polo position. Shnmus. Camels. Pacman. Burgorllme. Centipe- 
de. Biliardo) a L 20.000 cadauna piu utility (Turbo tape): scrivi o 
telefona Massimo Currò • Via Boccetta. 149 - 98100 Messina • 
Tel 090/53864 _ __ 

Vendo per VIC 20. Commodore 64 e Commodoro 16 ('). softwa¬ 
re di utilità, giochi, giochi di avventura, manuali (in italiano). 
Inoltre acquisto programmi originali fatti da voi. Stefano Mila¬ 
nesi - Via Conca Del Naviglio. 22 - 20123 Milano - Tel. 
02/8322089 ____ _ _ _ _ 

Compro, vendo, cambio programmi per C64 Dispongo di otti¬ 
mo software: Pole position. Revengo of mutants camels. Sam. 
Simon's BASIC, nitri giochi ed Utilities n partire da L 1.000. Invio 
a tutti lista gratuita Casella Postale 76 - 64100 Teramo • 
0861/552301 _ _ __ 

Vendo per C64 programma statistico, con controllo automatico 
punteggio conseguito a L 30.000. Solo su disco. Per ulteriori 
informazioni scrivere o telefonare dnlle ore 14 30 alle 15.30. 
Calcedonio Meli - Via G. Amico Valenti. 89 - 93100 Caltamsset- 
ta - Tel 0934/23365 ___ _ 

Vendo per CBM 64 10 programmi copiati da cartuccia su 
cassetta (Calcio. Biliardo. Sci. Falcon patrol. Skramblo. Pole 
position. Le Mans, Sea wolf. Cenlipede. Orsacchiotti) a L 
15.000. Telefonare ore pasti Umberto Rizzo - Via La Rosa. 1 1 - 
90018 Termini Imerese (PA) - Tel. 091/944589 


Vendo, cambio programmi per CBM 64. Su richiesta invio la 
lista con i prezzi. Per informazioni telefonare ore pomeridiane e 
serali Giampaolo Bombare • Via Graglia. 36 • 10136 Torino 
(TO) - Tel 011/363547 _ 

Cambio programmi su disco e su nastro per Commodore 64, 
sia giochi che utility Richiedere e inviare lista 0 : Cesare Bon- 
compagni - Via Piave. 22 - 57013 Rosignano Solvay (LI) - Tei. 
0588/761577 

■ Vendo Commodore 64 super accessoriato, vero affa- ■ 

■ re. causa passaggio a sistema superiore. Parliamone ■ 

■ dopo le 20-00 Alfredo Nocera - Viale F.sco Scaduto. ■ 

■ 2/a - 90144 Palermo Tel 091/258129 ■ 

Vendo per VIC 20 I più bel giochi oggi In commercio (Super 
Pacman. Tutankamen. Arcadia. Bewitched. Cornipede. Frog¬ 
ger. Scrambfe. Joust. Super Pinball) Telefonare ore pasti Mar¬ 
co Piazza c/o Simoni - Via Belvedere. 8 • 44100 Ferrara • Tel. 
0532/36594 


Vendo, cambio oltre 600 programmi per CBM 64. Eccezionali 
programmi gestionali. Telefonare ore 20.00. Contatterei club 
CBM 64 in zona Milano. Lorenzo Livi • Via Ubarti Giulio, 10 • 
20100 Milano - lol 02/74792 

Vendo VIC 20 più 3 Kbyte Super expander. 60 programmi (molti 
in LM). 3 libri (Programmazione 6502 - BASIC • Giochi in 
BASIC) a L. 350 000 trattabili Regalo inoltre joystick. Roberto 
Treccani - Viale Europa. 72/B - 25060 Mompiano (BS) - Tel. 
030/394067 ____ 

Vendo, cambio programmi per 64. Ne possiedo circa 200 fra 
utility e giochi. Inviare lista a; Massimo Silvestrm • Via Giangui- 
do Borghese. 4 - 40100 Bologna 

Per VIC 20 vendo scheda che rende il registratore veloce quasi 
quanto il disk drive a L 38 000 Motherboard 6 posti seleziona¬ 
bili singolarmente L 56.000 e tanti altri accessorii Gianni Bozzi 
• Via Savona. 16/S - 20099 Sesto S. Giovanni (MI) - Tel. 
02/2407825 ___ 

Cambio per C64 cerco i manuali di; Simon's BASIC, Sam (an¬ 
che vocabolario). Pet speed, G-Pascal. FORTH. Li compro o 
cambio con uno o più dei miei programmi tra cui anche; Turbo 
tape 64. Soccer II. Potè position. Grandmaste!. Puc man. Save 
New York. Tennis 3D. Synthsound 64. Matrix Sono anche in 
vendita a L. 7.000 cadauno. Cerco Flight Simulator II su casset¬ 
ta (se esiste!). Gianluca Sansonetto - Via Aldo Moro. 11 /C/3 - 
30020 Meoto (VE) - Tel. 0421 /6182S1_ 

Compro, cambio, vendo oltre 400 programmi per C64. Dispon¬ 
go di numerosissimo novità di ogni genore: The last one. Pope- 
ye. Exodus. Ingegneria. Flight simulator II. Golf. Hulk. Clone. 
Unguard. ecc. Inviare lista Fabrizio Ganem - Via Luigi Zam- 
brelli. 32 - 00152 Roma - Tel 06/5376138 

Per Commodore 64 vendo novità assoluta. Possiedo modulo 
hardware Fast Load Toolkit con cui leggere e scrivere dati a 
velocita 10 volte superiore. Saverio Bertaccini - Via S Maria. 4 - 
50014 Fiesole (FI) - Tel. 598971 

Cambio, vendo software Commodore 64 a prezzi stracciati 
Giochi stupendi. Arcade; tra gli altri Popeye. Zaxxon. Pooyan. 
QBert. Pittati. Soccer, Baseball. Pengo e modi altri Stefano 
Prandio! - Via P. Torelli. 1 - 43100 Parma - Tel 0521/3619 
Vendo 1.000 programmi per CBM 64 a prezzi stracciali. Giochi. 

utility, professionali, gestionali Telefonare ore pasti ad Ales¬ 
sandro allo 06/8387176 oppure a; Luca Zolla • Via Casella • 
00199 Roma - Tel 06/8381537 

Cambio, compro, vendo programmi per C64. Ne possiedoolrei 
700 tra giochi e utilty. molte te novità Inviatemi la vostra lista o 
telefonare a Arnaldo Restelh • Via Melzi. 135 • 20025 Legnano 
(MI) - Tel 0331/596582 

Vendo per C64 cassetta o disco con 20 giochi selezionati di 
almeno 25 Kbyte ciascuno (es Pac man. Galassia. Corsa d'au¬ 
to. Il gobbo, ecc ). E' un'offerta da non rifiutare. Fabio Pioli • Via 
Al Garbo. 6/5 - 16159 Genova - Tel. 010/446998 

Vendo VIC 20. registratore, espansione selezionabile 3-8-16 
Kbyte. cartucce Donkey Kong. Defender e cassette scacchi 16 
Kbyte e Cyclons a sole L. 500 000 Massima serietà, telfonaro 
ore pasti In regalo 2 libri sul VIC 20. Valentino Bardellotto - Vin 
M ameli. 5/2 - 30017 Lido d i Josolo (VE) - Tel 0421/92426 

Vendo per Commodore 64 giochi in LM e BASIC a L 5.000 
cadauno, regalo Turbo Tape a chi ne ordina più di 4. Fornisco 
lista per telefono o per posta. Dopole oro 14 Affrettatevi» Gra¬ 
ziano Ponzo - Via Cesare Battisti. 3 - 00030 San Cesareo (RM) - 
Tel. 9587104_ 

Vendo por C64 oltre 100 giochi fra i quali Arcadia. China Mincr. 
ecc. Dieci giochi L 60000; Turbo tape L 15.000. Monitor più 
Assembler L 100000 Sono solo alcuni dei programmi di cut 
disponiamo, ordinate o richiedete la lista Cosimo Mazzotta 
Via S. Emidio. 3/3 - 67016 Paganica (AQ) - Tel. 0862/68285 

Vendo a prezzi incredibili I migliori programmi in BASIC e LM 
per C64 tra i quali Turbo tape. Zaxxon. Hunch back. Shamus. 
Fort Apocalypse. Falcon Patrol. Simon Mother ship ecc. Tele 
fonate o scrivete. Andrea Natale - Via Lucca. 14 • 20156 Milano 
(MI) - Tel 02/4566936 

Cambio, vendo per C64 Utilities, giochi eccezionali (Decathlon. 
Golf. Karaté. Flight simulator II. ecc ). Telefonare o inviare listo 
Martino Traersa - Via Putignant, 146 - 70100 Bari - Tel. 231034 
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Cambio, vendo software per C64 ed Apple II. Per C64 possiedo 
una biblioteca di oltre 300 programmi. Inviare vostre liste a: 
Massimo Leoncini - Casella Postale 85 - 16035 Rapallo (GE) 

Vendo per Commodore 64programma gestionale IVA Memo¬ 
rizza le fatture, stampa il registro IVA. l’elenco fornitori e clienti e 
dichiarazione annuale. Il programma è indicato per negozi e 
piccole industrie. Rag. Luciano Usuelli - Via Isonzo. 31 - 21100 
Varese - Tel. 0332/242596 _ 

Cambio, vendo per Commodore 64 programmi di utilità, gestio¬ 
nali, giochi e videogiochi. Possiedo inoltre numerosi manuali. 
Inviate liste e/o richieste di esse a: Gerardo Marra - Via P. 
Baratta. 91/A - 84091 Battipaglia (SA) - Tel. 0828/23130 
Compro, vendo programmi per CBM 64. Ho i più recenti con i 
migliori sconti. Annuncio sempre valido. Livio Modena - Via 
Dante. 110 - 18038 San Remo - Tel. 0184/73079 

Attenzione: per C64 vendo, cambio selezionatissimo software 
su disco e nastro. Giochi nuovissimi e fra i più belili, numerosis¬ 
sime utility (anche con manuale) e gestionali favolosi. Cerco 
Stampante usata MPS 801. Inviare lista. Roberto Salvo - Via De 
Gasperi. 28 - 20053 Muggiò (MI) - Tel. 039/ 794326 
Vendo per CBM 64 tutti I migliori games in commercio su 
cassetta! Caricamento più veloce del disco! Prezzi bassissimi! 
Telefonare ore pasti per contatti e/o lista. Gianluca Sillidi - 
Piazza Einstein. 7 - 50047 Prato (FI) - Tel. 0574/580835 

Cambio, compro, vendo circa 300 programmi per VIC 20. Cam¬ 
bio inoltre programmi solo in linguaggio macchina. Possiedo 
inoltre altri 300 programmi per C64. Per avere la lista inviatemi 
la vostra. Di Bella Concetto - Via Francesco Lo Iacono. 19 - 
95100 Catania 

Cambio, vendo software per CBM 64. Inviare o richiedere lista, 
telefonare ore 14-16 e 19-22 Aldo Bilione - Via Della Costitu¬ 
zione. 144 - 97100 Ragusa (RG) - Tel. 0932/52489 

Vendo VIC 20 4 mesi di vita con joyslick, 40 giochi e utility in 
cassetta, registratore, espansione di memoria a 3 Kbyte ROM. 2 
cartucce gioco. Omega race e Atlantis. Il tutto a L 430.000 
Carlo Daolio - Via Panoramica. 10 - 40069 Zola Predosa (BO) - 
Tel. 051/758031 _ 

E’ nato il Club Commodore Ercolano 64. Cambio e vendo 
giochi per C64. Scrivetemi presto o. meglio ancora, telefonate¬ 
mi. Matteo Oliviero - Via G. Marconi. 62 - 80056 Ercolano (NA) - 
Tel. 081 / 7393829 _ 

Vendo a prezzi bassissimi o cambio programmi di altissima 
qualità. Chiedere lista per credere. Tutto per Commodore 64. 
Scrivere o telefonare a: Giorgio Primiceri - Via Sauro. 87 - 
73100 Lecce - Tel. 0832/45344 _ 

Cambio, vendo oltre 600 programmi per CBM 64 (ho molti 
manuali). Sergio Ferrara - Via C. Piacane. 53 -20129 Milano - 
Tel. 02/276833 

Vendo programmi per Commodore 64 a prezzi incredibili (10 a 
L. 20.00 20 a L. 30.000. ecc.). Per informazioni scrivere o telefo¬ 
nare ore 14-16 a: Mazzesi Gianni - Via Cella. 329 - 48020 S. 
Stefano (RA) - Tel. 573529 

Vendo per CBM 64 cassette contenenti ciascuna 10 giochi lutti 
in LM e Hl-Res a L. 20.000 cadauna. Alcuni esempi: Zaxxon, 
Frogger. Donkey Kong. Pole position. Arialdo Monguzzi - Via 
Italia, 26 - 20053 Muggiò (MI) - Tel. 039/793643 _ 

Per Commodore 64 cambio giochi e utility solo su nastro. 
Mandatemi le vostre liste ed io vi manderò le mie. Rispondo a 
tutti. Franco Papotto - Viale Italia, 37 - 34073 Grado (GO) 
Vendo a prezzi fallimentari circa 400 programmi per Commo¬ 
dore 64. sia videogames in ^M che utility, il tutto solo su nastro. 
Gianni Mazzesi - Via Cella. 329 - 48020 S. Stefano (RA) - Tel. 
0544/573529 _ 

Vendo disco 1541 e stampante MPS801 in condizioni perfette, 
con incluso molto software, per L 900.000. Carlo Alberto Molli - 
Corso Umberto. 209 - 80034 Marighano (NA) - Tel. 
081/8853132 

Compro, cambio, vendo vasta gamma software preferibilmente 
in Turbo tape per C64. Sono interessato a contatti con Assem- 
bleromani per in informazioni su linguaggio macchina. Telefo¬ 
nare ore pasti o dopo le 20.30. Gabriele Bulfon - Via Faenza. 
26/8 - 20142 Milano - Tel.02/8130430 

Cambio, vendo programmi dì ogni tipo per Commodore 64. 
Dispongo di 400 titoli in espansione. Vendo a prezzi bassissimi. 
Dario Minguzzi - Via Garavini. 38 - 48100 Ravenna (RA) - Tel. 
2 7666 _ 

Svendo programmi di ogni tipo per Commodore 64. tutti in LM e 
completi di manuali. Ivano Marchioro - Via Cavour. 25 - Monte- 
grotto (PO) - Tel. 049/793009 


Si ò costituito a Montagnana il primo Club Commodore 64 per 

scambio software, opinioni ed esperienze. Scrivere a Carlo 
Ferrari - Via Camillo Storni - 35044 Montagnana (PD) - Tel. 

0429/82469 _ 

Vendo programmi per VIC 20 a L. 1.000 cadauno. Posseggo 
all'incirca 105 programmi (alcuni in LM). Inoltre cambio questi 
programmi con altri espansi a 8 Kbyte. Per una lista scrivere o 
telefonare a: Giovanni Tancini - Via Pian D’Ovile. 39 - 53100 
Siena - Tel. 0577/288830 _ 

Vendo, cambio numerosi programmi per C64 a prezzi bassissi¬ 
mi. Scrivere o telefonare a: Mambelli Flaviomarco - Via G. 
Valmarana. 68 - 00139 Roma - Tel. 06/8122497 

Cambio, vendo programmi di ogni genere per Commodore 64. 
preferibilmente in zona Marche. Prezzi molto bassi. Luca Giu¬ 
stozzi - Via Pausola. 113 - 62014 Corridonia (MC) - Tel. 
0733/292453 _____ 

Vendiamo programmi per Commodore 64. VIC 20 e il nuovo 
CI 6 a L. 2.000 cadauno. Tutte le ultime novità tra i quali giochi 
parlanti. Scelta tra 1.000 programmi. Scrivere o telefonare a: 
Micro Commodore Club - Via Antonio Panizzi. 13 - 20146 

Milano - Tei 02/427890 _ 

Per C64 cambio, vendo tutti I linguaggi (5 Pascal diversi. LO¬ 
GO. LISP. 2 FORTH. Pilot). tutte Utilities, tutti I giochi (3 versioni 
di Olimpiadi) a L. 10.000. Beh. quasi tutti.. Carlo Borreo - Via G. 
Serio. 34 - 18100 Imperia - Tel. 0183/21833 _ 

■ Cambio, vendo più di 400 programmi in LM per CBM I 

■ 64. Dispongo di 4 tipi di Olimpiadi e moltissimi video- ■ 

■ games: Clone. Unguard. Clone II. ecc. Assicuro rispo- ■ 

■ sta. Scrivere o telefonare a: Alberto Rigato -Via Piata- ■ 

■ ni. 6 -31033 Castelfranco Veneto (TV) - Tel. ■ 

■ 0423/493558 ■ 

Vendo solo in blocco cinque favolosi giochi sportivi in LM per 
Commodore 64: Mondial soccer. Pole position. One on one 
(Basket). Baseball. Decathlon e Turbo tape in regalo a sole L. 
35.000. Mandare ordini a: Roberto Borrelli - Via Panoramica. 31 

- 60100 Ancona - Tel. 071/56562 

Cambio/vendo più di 400 programmi per CBM 64 (contabilità - 
gestione - utilità - giochi - tutti i migliori sul mercato, per un 
valore commerciale di 11 milioni) con stampante MPS802 o 
MPS 801 usate o in blocco. Michele Salvemini - Via 4 Boccali. 
28 - 71043 Manfredonia (FG) - Tel. 088 4/26491 _ 

Compro, vendo, cambio programmi di ogni genere per CBM 
64. Vendo inoltre 2 cartucce, gioco e sintesi sonora, a L. 30.000 
cadauna. Inviate la vostra lista, risponderò con la mia. Antonio 
Cantarella - Via Incontro. 35 - 96016 Lentini (SR) - Tel 941194 

Per CBM 64 cambio, vendo ogni tipo di programma, preferibil¬ 
mente su disco. Rispondo a tutti. Fabrizio Fassi - Via Pianata, 5 

- 16035 Rapallo (GE) - Tel. 0185 /56654 _ 

Vendo o cambio programmi per C64. Un gioco L. 3.000 oppure 
10 giochi L. 25.00 30 giochi L. 50.000. Tratto solo con Milano. 
Gianni Arioli - Via Massarenti. 22 - 20148 Milano - Tel. 
02/407 6556 (ore pasti) 

Cambio, vendo 300 programmi per CBM 64 su cassetta. Scam¬ 
biamoci le liste o conttattiamoci telefonicamente. Annuncio 
valido sempre. Paolo Pallara - Piazza Salerno. 3 - 73100 Lecce 

- Tel 0832/54514 __ 

Cambio, vendo programmi per VIC 20. con e senza espansione, 
oltre 200 programmi Prezzi da stabilire per club come il nostro. 
Massima serietà Scrivere o telefonare a: Giuseppe Biancotti - 
Via Liguria. 16 - 57100 livorno - Tel. 0586/859963 

Vendo per VIC 20 espansione di memoria 16 Kbyte a L. 100.00 
giochi in cartuccia a L. 18.000: Poker. Sargon 2. Ratrace, ecc. 
Tutto praticamente nuovo. Fernando Benini - Via E. Pazzi. 16 - 
48100 Ravenna 

Compro, cambio, vendo programmi per CBM 674. Fra gli altri: 
SuperBase, Hesmon. Koala paint. Locksmith. Magic desk I. 
Scrivete, garantisco rapida risposta a tutti. Paolo Donalisio - 
Via Torino. 162 - 12038 Savigliano (CN) - Tel. 0172/33323 

Vendo oltre 200 programmi per Commodore 64 ad un decimo 
del prezzo reale. Qualche nome? SuperBase 64. The last one. 
Koala. KMMM. Pascal. Richiedere lista. Telefonare solo sabato 
o domenica. Raffaele Eugenelo - Via R. Grieco. 19 - 71100 
Foggia - Tel. 0681/33619__ 

Compro programmi di qualsiasi genere, sia utility che games 
per CBM 64 e VIC 20. Inviatemi le vostre liste a questo indirizzo: 
Massimo Tabasso - Piazza Molmeris. 1 - 12038Savigliano (CN) 

■ Vendo 90 tra i migliori programmi per VIC 20 come: ■ 

■ Crazy kong. Monsters. statistica. TSP su cassetta a L ■ 

■ 30.000 + spese postali oppure 140 programmi a L. ■ 

■ 39.000. 40 a L 30.000. Armando Mazza-Via Settem- ■ 

■ brini. 96 - 70053 Canosa (BA) - Tel. 0883/64050 ■ 

Vendo e cambio oltre 160 programmi per VIC 20. non solo 
giochi. Gennaro Caturano - Via Passariello. 35 - 80038 Pomi- 
gliano (NA) - Tel. 081 /8843990 

Affarone! Vendo cassetta contenente 10 programmi per VIC 20 
in versione base a L 20.000 (L 2.000 a programma). Telefonare 
ore pasti e chiedere di Lucio. Spedizione in contrassegno. 
Gianlucio Marchetti - Via Saloni. 53 - 30015 Chioggia (VE) - Tel. 
405221 


Vendo programmi originali per CBM 64 a prezzi stracciati o 
trattabili: Calcio. Pac-man. Burgertime. Frogger, QBert, Tennis. 
Slalom. Galaxia. etc. Posseggo anche listato Programmerà 
Tool-kit. Armando Aquino - Via Tiratore. 5 - 83042 Atripalda 
( AV) - Tel. 0825/626498 _ 

Ho acquistato da poco un CBM 64. e sono alla ricerca di 
programmi di qualsiasi tipo: giochi, utility, gestionali. Inviatemi 
al più presto possibile le vostre liste con relativi prezzi. Antonio 
Tummolo - Via Cilea. 8 - 71048 Stornarella (FG) - Tel. 
0885/32065 _ 

Per VIC 20. Club "Computermania", cambia e vende program¬ 
mi in BASIC. LM, con e senza espansione. Massima serietà, 
rispondiamo a tutti. Annuncio sempre valido. Scrivere o telefo¬ 
nare a: Giuseppe Biancotti - Via Liguria. 16 - 57100 Livorno - 
Tel. 0586/859963 


Vendo, cambio programmi per VIC 20 (circa 400). Cerco amici 
per fondare un club e scambio opinioni. Cerco inoltre program - 
ma con istruzioni per poter duplicare le cartridge (su nastro). 
Posseggo anche 100 programmi su nastro per C64. Terenzio 
Clandroni • Via G. Rossi. 13 - 29028 Pontedell'Oli (PC) - Tel. 
0523/87752 


Vendo per Commodore 64 oltre 50 stupendi giochi. Possiedo 
inoltre numerose utility. Telefonate o richiedete la lista a: Carlo 
Mocellin - Via Carducci. 41 - 36067 Termine di Cassola (VI) - 
Tel. 37509 ___ 

Cambio, vendo oltre 300 programmi per CBM 64 su cassetta, 
giochi. Utilities, ecc. Richiedete o inviate listati, rispondo a tutti. 
Calogero Carrocci - Via Ten. Siro Brigiano. 21 - 98057 Milazzo 
(ME) - Tel. 090/9 26123 _ 

Cambio, vendo programmi su cassetta per VIC 20 e Commodo¬ 
re 64. In particolare giochi di ogni genere. Telefonare solo dopo 
ore 17. - Andrea Rivara - Via Sidoli, 62 - 43100 Parma - Tel. 
0521/494326 

Compro, vendo, cambio programmi di ogni tipo per Commodo¬ 
re 64. Tomaso Scarsi - Via Landucci. 50 - 35100 Padova - Tel. 
049/751242 _ 

Vendo per il C64 giochi molto belli. Per informazioni richiedere 
il catalogo gratis a. Sorrentino Bruno - Via Leopardi. 49 - 39012 
Merano (BZ) - Tel. 32272 

Vendo o cambio programmi su cassetta per VIC 20. Richiedere 
descrizioni e prezzi a: Daniele Vasi - Via Ofanto, 9 - 48100 
Ravenna - Tel. 0544/63453 

Compro, vendo, cambio 1 migliori programmi di videogiochi per 
CBM 64. Chiedere listino dei programmi su cassetta a: Michele 
Ridolfo - Via Barioli, 5 - 58022 Follonica (GR) - Tel. 0566/41191 

Vorrei entrare in contatto con altri possessori di Commodore 64 
per scambio di programmi, giochi e utility. Eventualmente ce¬ 
do i miei a prezzi molti bassi o ne acquisto. Giuseppe Cottogni - 
Via Strambino. 23 - 10010Carrone(TO)-Tel. 0125/712311 (ore 
20-22) _ 

■ Per Commodore 64 vendo I migliori programmi su ■ 

■ disco o nastro a partire da L. 2.000. Invio lista in tutta ■ 

■ Italia. Manuali, pulsante RESET, dischi. SKC. cartrid- ■ 

■ ge con turbo tape. Gabriele Fanelli - Via C. Zaccagni- ■ 

■ ni. 129 - 00128 Roma - Tel. 06/6151345 ■ 

Cambio, vendo giochi e utility (circa 200) su disco e nastro per 
CBM 64.1 prezzi del software dipendono dalla qualità e quantità 
acquistata. Ogni 5 programmi uno in omaggio. Stefano Baldoni 
- Via Della Magliana. 277 - 00146 Roma - Tel. 06/5271210 

Vendo programmi e giochi per Commodore 64 a prezzi davve¬ 
ro strabilianti! Agostino Lizzeri - Via Claudio Monteverdi, 18 - 
07100 Sassari - Tel. 079/244403 


Per C64 cambio, vendo programmi di giochi, utility, gestionali, 
matematica e grafica. Gli interessati possono richiedere lista 
e/o inviare la propria a: Mario Massimo Caputo • Via Roma.19 - 
81030 Teverola (CE) - Tel. 081/8118104 

Vendo circa 1000 programmi per CBM 64 Prezzi da L. 3.000 a 
L. 30.000. Scrivere o telefonare a: Marino Russo - Via Sandro 
Gallo. 169 - 30126 Venezia Lido (VE) - Tel. 041 /30777 768593 

Cambio programmi giochi per PET/CBM 4032. Scrivete e 
mandate i programmi su cassetta. Telefonare nel pomeriggio. 
Massimo Mensi - Piazza B Croce. 2 - 15048 Valenza Po (AL) - 
Tel. 0131/928 62_ 

Cambio, compro, vendo programmi per Commodore 64, Scri¬ 
vere inviando la propria lista a: Romeo Giuseppe - Via Montello, 
37/4 - 16137 Genova - Tel. 010/817708 

Cambio, vendo per Commodore 64 giochi e utility solo su 
disco. Scrivere o telefonare a: Eraldo Parissi - Via Dei Mughetti. 
36 - 10151 Torino - Tel. 011/734354 _ 

Cambio, vendo per CBM 64 programmi su disco o cassetta 
Dispongo di circa 300 programmi. Inviare o richiedere lista a. 
Roberto Segala - Via Pilastrina. 17/B - 37040 Vangadizza (VR) 
- Tel. 04 42/23904 ___ 

Eccezionale' Vendo le ultime novità per CBM 64. Posseggo i 
migliori giochi come: Jungle hunt - Circus Charlie - Wmg war - 
Breakdance - Hyper Olimpics) e tantissimi altri utility e gestio¬ 
nali. Domenico Gallò - Casella Postale. 36 - 88029 Serra S. 
Bruno (CZ) - Tel 0963/71210 
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Vendo espansione 16 Kbyte per VIC 20 a L 100000 • Guido 
Lampo - via G De Procida. 62 • 80079 Procida (NA) • Tel. 
081/8968514 _ 

Vendo VIC 20 ancora Imballato più 10 cassette con giochi, 
utility e gestionali. 40 programmi più carlridge più slot più 
interfaccia per tutti I registratori più progetti e circuiti per 
espansioni grafiche e di memoria più 4 libri sul VIC pù manuale 
per trasferimento all'estero a L 420000 trattabili Massimo 
Mazzoni - Via Varsavia. 8 - 50065 Pontassieve (FI) - Tel 
055/8302440 


Attenzione 1 Vendo favolosi videogames per CBM 64 su casset¬ 
ta: il fantastico Decathlon. Soccer. Basket. Baseball. Dig Dug. 
Pitstop, Donkey kong. Popeye, QBerl. Grandmaster. Qix. ecc. 
Tutti a L 10.000 cadauno. Giuseppe Cefalo - Via Napoli. 251 - 
80018 Mugnano (NA) • Tel. 7451768 

Vondo VIC 20. registratore C2N. joystick. 50 programmi tra cui 
alcuni In linguaggio macchina e utility. Tutto a L 300.000. 
Telefonare ore pasti. Mirco Ragno Via Podgora, 147 - 20099 
Sosto S Giovanni (MI) • Tel 2422686 
Cambio per VIC 20 programmi su cassetta Lista gratuita per 
programmi di tutti i tipi, games. utility, didattici, ecc Rispondo a 
tutti. Alvaro Ceccarini - Via Di Vittorio. 10 - 58022 Follonica (GR) 
- Tel 0566/43248 

Vendo per C64 software di vario genere (giochi, utility, gestio¬ 
nali) su cassetta e disco. Per informazioni scrivere o telefonare 
a: Filippo Cardullo - Via Servais. 200/E7 - 10146 Torino - Tel. 
011/712946 

Cambio e vendo giochi o utility su cassetta per VIC 20. sempre 
disponibili a prezzi contenuti Massima serietà. Richiedere la 
lista e/o informazioni scrivendo o telefonando. Francesco 
Astuti - Via Degli Alpini. 10 • 62019 Recanati (MC) - Tel 
071/981865_ 

Vendo VIC 20. registratore, carlridge Programmerà Aid. ma¬ 
nuale in italiano. 4 libri per VIC 20 e tante cassette gioco anche 
in LM a L 400.000 non trattabili Giuseppe Ariano - Via Cilea. 6 - 
20096 Piolteflo (MI) - Tel. 02/9240846 

Compro, cambio e vendo programmi por CBM 64. Rispondo a 
tutti. Richiedere o mandare lista a. Michele Scotti - Via Nazio¬ 
nale delle Puglie. 43 - 80030 Clmitaile (NA) - Tel. 081 /8234281 


Vendo per CBM 64 oltre 700 programmi in LM o 
compilati. I prezzi: giochi L 3.000 massimo, utility L 
5.000 massimo, gestionali L 10.000 massimo. Ales¬ 
sandro Ederle - Via Tommasina Cotosino. 4 • 80144 
Napoli - Tel. 081/7547170 


■ 

■ 

■ 

■ 


Compro, compro, vendo software per CBM 64. In 
particolare cerco Easy Script, compilatore e un pro¬ 
gramma di astrologia. Disponibili Simon. Turbo tape e 
ottimi giochi ed utility Francesco Pucci - Via Perris. 
14 - 84012 Angn (SA) • Tel. 081/949312 
Vendo, cambio programmi per Commodore 64- utility, 
gestionali, linguaggi, giochi L'annuncio è sempre va - 
lido Carlo Piccolo • Via A Poerio. 33 - 35100 Padova 
- Tel 049/652813 _ 

Vendo cassetta con 18 giochi per CBM 64 registrati in 
Turbo tape. Tra gli altri: Pole position. Puc-man. Mun- 
diai soccer. Falcon patrol, Galaxia, Hamburger, 
Hunchbach. ecc. a L 20.000 Stefano Caracciolo • 
Corso Italia, 28/E • 16145 Genova - Tel. 300435 

Vendo I piu bei giochi per Commodore 64 a prezzi 
stracciati: da L 5.000 a L 10.000. Calcio, ecc tutti in 
Turbo tape (fornibile): vendo inoltre a L 20000 Si- 
mon's BASIC. Antonio Stracqualursi - Via Sorelle 
Marchisio. 35 - 00168 Rom a - Tel 06/6274961 
Vendo VIC 20. registratore Maxtron. 3 cartucce, cor¬ 
so di BASIC in italiano. 4 cassette. 2 manuali, molti 
programmi con manuali, imballi originali tutto a L 
300.000 (valore L 600 000) Tel. ore 20-21.30. Stefano 
Lanticina - Via Garibaldi. 87 - 20013 Magenta (MI) - 
Tel. 9793312 


Cambio quaranta videoglochl per Commodore 64 tutti in LM 
con un simulatore di volo e programmi di ingegneria e totocal¬ 
cio. Maurizio D'Orsa - Via Venezia. 48 - 20039 Varedo (MI) - Tel 
0362/581058_ 

Cambio software su disco per Commodore 64. Giusuè Rata - 
Via M Migliaccio. 35 - 90145 Palermo - Tel. 091/563237 


■ Vendo per C64 una cassetta con bellissimi program- ■ 

■ mi tra cui Qix. Zaxxon. Soccer. Pole position. Magic g 

■ desk. Dig dug e altri a scelta a L 50.000 Per avere la g 

g lista o altre informazioni telefonare a: Luciano Abbo- g 
g nato-Via Principe di Pantelleria. 12/B-90146 Palar- g 
g mo - Tei. 091 /523587 g 


Eccezionale! Vendo carlridges Super Alien (VI906) e Voodoo 
Castle (VI918) per VIC 20 al prezzo di L 45.000. Sono come 
nuovo, complete di istruzioni. Franco Peloso Gaspari • Calle 
Annunziala. 2 - 33053 Latisana (UD) - Tel. 0431/50383 


g Affarone! Causa cambio computer, vendo in blocco. ■ 
g per Commodore 64.130 programmi registrati su dls- ■ 
g co a sole L 150.000. Massimo Proia - Via Pubblico ■ 
g Passeggio. 16 - 29100 Piacenza - Tel 0523/32417 g 


Cerco monitor Commodoro 1707 a modico prezzo e in buono 
stato. Vendo 7 meravigliosi giochi commerciali a L. 50.000 
Carlo Bonfreschi - Via Gaddi. 13 - 41100 Modena - Tel 
059/354606 

Vendo VIC 20. registratore. 1 libro. 2 cartndge e un'infinità di 
videogiochi e utility. Tutt con imballo originale e perfettamente 
unzionante. a L 250 000 E' un vero affare Massimo Chioatto - 
Via S. G Bosco. 1 - 22040 Arosio (CO) - Tel 031/762591 


J Annuncio sempre valido. Sei in possesso di program- ! 

[ mi per CBM 64? Stiamo creando un club per lo ! 

■ scambio di programmi. Se sei interessato chiama J 
• Claudio allo 02/316342 oppure a. Roberto Piazzolla - J 
■ Via Senigallia. 11 - 20161 Milano - Tel. 02/6454733 ■ 

Per VIC 20 vendo bellissimi programmi giochi ed utility anche 
in LM a L 1.000 cadauno Richiedete la lista a Remo Bibbiam - 
Via Pessagno. 17 - 57018 Vada (LI) - Tel 0586/787256 


Cambio software per Commodore 64 (giochi. Utilities, gestiona¬ 
li) esclusivamente su cassetta; dispongo di oltre 100 program¬ 
mi Tolefonate o scrivete. Vinicio Costa • Via Mancalacqua. 60 • 

37060 Lugagnano (VR) - Tel. 045/614261 _ 

Per C64 vendo a prezzi incredibili (da L. 3.000 a L. 5.000) giochi 
originali su cassetta. Richiedere lista Dispongo di: Soccer • 
Break dance • Decathlon. Disponibili anche Utilities In regalo 
Turbo tape Franco Pannati - Via Primule. 9 - 20146 Milano - 
Tei. 02/426802_ 

Vendo giochi in LM di alta qualità (Scramble. Pac-man. Squi- 
sh'em. Defender, ecc ) Posseggo inoltre anche Totocalcio. 
Chimica. Poker Annuncio sempre valido Salvo Fiorentino 
Via Trieste. 62 - 95127 Catania • Tel 095/371365 

Vondo software su cassetta per VIC 20 Molti programmi inediti 
tra cui: Monopoli, Football. Clown, ecc Richiedere lista, dispo¬ 
sto anche allo scambio, Paolo Gadani • Via Provinciale. 45 • 
52040 Civilella (AR) - Tel. 448077 


Vendo VIC 20 più registratore più 3-16 Kbyte RAM piu 50 
programmi causa urgente bisogno di denaro. Vendo a L. 
300.000. Il tutto ha 4 mesi di vita. Telefonare ore pasti. Marco 
Costa - Via Pochetlini, 13 - 15100 Alessandria • Tel. 
0131/323205_ 

Vendo giochi e programmi utilità per C64. Tra i tanti: Slmon's 
BASIC o Sam con manuale a L. 20.000. Giochi eccezionali: One 
on one. Karaté. Bluemax, Decathlon. Koala painter a L 8 000 
ciascuno. Scrivere per ricevere la lista. Mario Pellegrino • Via 
Cavour. 68 - 65100 Pescara_ 

Compro, cambio, vendo 1600 Programmi per C64. Inviare lista 
o telefonare ore pasti Arrivi settimanali da America. Germania 
e Inghilterra di programmi e manuali. Roberto Guglielmotto • 
Via Madama Cristina. 76 - 10126 Torino - Tel. 011/686308 


Vendo intero archivio di circa 300 programmi su disco per 
Commodore 64 al miglior offerente. Sono compresi Discmimic 
5. Clone 1 e gli ultimi giochi, come Hes games. Hero. Gamma- 
ron. ecc Mariangela Gozzi - Via Str Volta - 46040 Mozambano 
(MN) ♦ taf/ 0376/845372__ 

Vendo programmi per C64 Dispongo di Dismimic 5. Clone 1. 
giochi vari Hes games. Hero. Gammaron. Star Trooper, Wim- 
bledon. ecc . varie utility. Silvano Bompien - Via Baccagliom. 8 • 
46040 Mozambano (MN) 

■ Por Commodore 64 vendo I migliori programmi su ■ 

■ nastro (Hulk - Arabia n night • Streep poker - Decath- ■ 

■ lon 2 • Summer games - ecc.) Prezzi eccezionali, da g 

■ L 2 000 a L 10.000. scrivi otolofona Giancarlo Testi - ■ 

g Via Francesco Patrizio Do Cherso. 4 - 00143 Roma - g 
B Tel. 06/5038267 g 


Sinclair 


Vendo Manie minor. Ani attack. Atic Atac. Chequered Flag. 
Alchemist. il nuovissimo Olympics e tutti I migliori programmi 
per Spectrum 48/16 Kbyte Contattatemi peravere la lista gra¬ 
tis Stefano Labate - Via G Garetti. 8 - 14100 Asti - Tol. 
0141/211704 __ 

Vendo programmi per Spectrum 16/48 Kbyte. Scelta fra oltre 
150 titoli, molte novità dall'Inghilterra al prezzo mediodi L. 3.000 
ciascuno. Vendo anche in blocco. Telefonare dalle ore 20 m 
poi Francesco Brachi • Via B Varchi. 3 - 50047 Prato ♦ Tel 
0574/39338 _ _ 


Vendo per ZX81 16 Kbyte progaramma su cassetta pronostico 
calcio più sistema 64 colonne con verifica vincite e istruzioni. 
Arcangelo Rizzuli - Via S Leonardo. 21 - 43100 Parma - Tel. 
0521/73371_ 

Vendo ZX1 con espansione 64 Kbyte Memopack. 3 manuali, 
libro “66 programmi ", sei mesi di vita a L 250.000. Luigi Ranzani 

- Via Magenta. 3 • 20010 Cornaredo (MI) - Tel 9319520 

Cerco possessori presenti e futuri di Sinclair OL per fondare un 
OL User Club. Inoltre vendo software originale con i relativi 
manuali per Spectrum Roberto Ghezzi - Via Volontari Del 
Sangue. 202 - 20099 Sesto S Giovanni (MI) - Tel 02/248551 
Vendo programmi su cassetta per ZX Spectrum 48 Kbyte Chie¬ 
dete la lista, risponderò a tutti Zeno Caponi • Via Dietro Anfitea¬ 
tro. 12-37100 Verona - T ol. 045/32665 _ 

Attenzione! Eseguo in poco tempo per Spectrum nuovi sete di 
caratteri in alternativa al set Sinclair alfabeto personalizzato, 
(greco, russo, ecc.) Per informazioni telefonare di sora a: Giu¬ 
seppe Tassone - Via Fiume. 51 - 89048 Siderno (RC) - Tel. 
0964/348068 

Sono disperato, cerco espansione 16 Kbyte RAM per ZX81 
Mandatemi presto le vostre offerte, mi raccomando Antonio 
Pani - Via Gramsci. 94 • 08100 Nuoro - Tel 0784/32911 

Vendo Sinclair ZX Spectrum 48 Kbyte Febbraio 1984 ottimo 
stato, imballo originale più vane cassette di video games e 
Utilities a L 450000 trattabili. Telefonare ore pasti Fabrizio Gay 

- Via S. Lorenzo. 3/14 • 17100 Savona - Tel. 019/386050 

Vendo cassetta C60 con oltre 20 programmi per Spectrum 48 
Kbyte a L 30000 tutto compreso. Per prenotazioni e informa¬ 
zioni scrivete o telefonatemi ore pasti. Davide - Via A. Alberimi, 
9 - 20154 Milano - Tel 02/386075 

Compro espansione grafica HRG della Memopak per ZX81 e 
ZX Printer, ognuna ad un massimo di L 60000 Se possibile in 
zona Stefano Boccafoglia - Corso Milano. 10 - 20051 Limbiate 

(MI)-Tel 02/9962136 __ 

Vendo ZX Spectrum 48 Kbyte. stampante ZX Printer, 5 rotoli di 
carta. 150 programmi. 7 libri inglesi, molto altro materiale Negli 
imballi originali. L. 700000 trattabili, anche separatamonte. Mat¬ 
teo Morlacchi - Via Roma. 46 - 20025 Legnano - Tel. 
0331/549236_ 

Vendo due programmi di pronostici sulle "Corse di cavalli" per 
ZX Spectrum autorealizzati (ottimi) 16 o 48 Kbyte (massima 
serietà). Fabrizio Fulco - Piazzale del Fante. 49 • 901465 Paler- 
mo - Tel. 091/518089 __ 

Vendo ZX Spectrum 48 Kbyte. interfaccia joystick. 100 giochi 
tra cui: Atic atac. Manie miner. Jet man e tanti altri. Tuttoquesto 
a L 495000. Chi fosse interessato telefoni (ore serali) a: Mauri¬ 
zio Marengoni - Corso Genova. 9 - 20123 Milano * Tel. 
02/8378600 __ _ 

Vendo ZX Spectrum 48 Kbyte con oltre 100 giochi o utilità a L. 
350000. Vendo stampante Alphacom 32 a L. 180000. Il tutto è 
nuovissimo e con imballo originali. Gianni Arioli - Via Massa¬ 
renti. 22 - 20148 Milano • Tel. 02/4076556 
Cerco slnclalrisil a Pesaro per scambio programmi e idee 
Marmo Ruggen - Via Milazzo. 17 - 61100 Pesaro - Tel. 
0721/452611_ 

Cerco software per ZX Spectrum. sopratutto giochi Posso 
cambiare con programmi gestionali (partita doppia, registri IVA. 
gestione c/c. ecc.) Cerco programma per copiare cassone su 
microdrive. Davide Guernien - Via Stazione. 2/1 - 30035 Mira¬ 
no (VE) 

Attenzione: cerco FORTH e Pascal per Spectrum. Cambio, 
vendo programmi di ogni genere. Cambio tutti i miei programmi 
per joystick o stampante. Inviare L. 500 o listino per scambio a; 
Pietro Cardetta - Vico Rosmini. 3 - 74017 Monola (TA) 

Vendo ZX Spectrum 48 Kbyte. 180 programmi, manualo italia¬ 
no a L 500000 Aldo Savoi - Via Boldrini. 6-40121 Bologna - 
Tel 051/552633_ 

Per ZX Spectrum vendo programmi a L 2.000 cadauno Circa 
500 titoli a disposizione Si garantiscono massima serietà e 
ottima qualità delle registrazioni. Per ricevere lista scrivere o 
telefonare a: Salvatore Ferrante - viale Regina Margherita. 59 - 
98100 Messina - Tol. 090/45033 

Compro, cambio, vondo software per ZX Spectrum n L 2.500, 
Novità inglesi In arrivo ogni mese. Andrea Muzzoli - Via Marine. 
37 - 73100 Lecce - Tel 0832/34622 

Vendo, cambio programmi a L 1.000 cadauno (più spesa na¬ 
stro) per Spectrum Oltre 250 programmi: Tennis. Figther. Pilot, 
Pascal. HobbiL ecc.) Per ricevere listino scrivere o telefonare a 
Alberto Raggi • Via Garibaldi. 119 - 47100 Forti - Tel 
0543/31907 __ 

Cambio oltre 800 programmi per ZX Spectrum. Sono disposto a 
comprare le ultimissime novità dall'Inghilterra. Cerco anche 
testi riguardanti lo Spectrum Scrivere o telefonare a: Alfrodo 
Trifiletti - Via Fiume. 20/A - 71100 Foggia - Tel. 0881/75385 

■ Vendo I migliori e più recenti programmi por ZX ■ 

■ Spectrum. tutti originali inglesi: Decathlon. Kokotonl ■ 

■ Wilf. Rapscallion. Combat Lynx. Sherlock Holmes. ■ 

■ Beta BASIC 1.8. e centinaia d'altri. Carlo Folco • Via ■ 
g AS Novaro. 9/B - 18100 Imperia - Tel. 0183/26629 ■ 
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Cambio, vendo programmi per ZX Speclrum. per il cambio 
inviatemi la lista ed io invierò la mia; per vendita scrivere o 
telefonare: programmi 48 Kbyte L 2500. 16 Kbyte L 1500 
Sergio Meloni - Via Baiai. 70 * 07046 porto Torres (SS) - Tel 
079/501609 


Cercasi programma di magazzino e fatturazione per computer 
Z80 Micro Design, anche solo listati, possibilmente in dBase II 
Cambio anche programmi tipo Wordstar - Trasl 80 • dBase I - 
dBase II. Pier Luigi Faetanini • Via dello Carrara. 33 • 47031 
Repubblica di S. Marino - Tel. 0541/997606 


Vendo Sinclair ZX81, 2 mesi di vita più manuale, alimentatore 
più gioco degli scacchi a L. 65.000 iniziali, prezzo trattabile 
Garantita funzionalità, un vero affare Compro inoltre cassette e 
programmi per CBM 64 Raimondo Milano - Via Trebbila. X 
29020 Rivergaro (PC) - Tel. 0523/957628 

Cerco "Supercharge your Spectrum", tavoletta grafica e Sei- 
kosha GP50S per Speclrum Disponibilità di oltre 300 program - 
mi a L 2.400 ciascuno Marco Sivori • Via Barchetta. 18/9 - 
16162 Bolzaneto (GE) • Tel 010/40 3118 

■ Vendo programmi per Spectrum: fatture, ricevute ■ 

■ bancarie, buste paga, gestiti su video e stampante. ■ 

■ personalizzati con ricerca a codici dei clienti, articoli. ■ 

■ dipendenti. Un programma L 15 000. due programmi g 

■ L 25.000. Flaviano Testa - Via Berta. 139 - 86170 | 

■ Iserma - Tel. 0865/3206 (ore 17) 

Cambio notevole quantità di software per Spectrum. Ho a 
disposiziono molli programmi autoprodotti di ingegneria, ecc 
Scrivetemi, sarò a vostra disposizione Nella Emendi • Via Mon 
f alcone. 141 95033 Bi anca Villa (CT) 

Cerco possessori QL per eventuale scambio software, libri di 
applicazione e impressioni Sono anche interessato a pro¬ 
grammi gestionali ed utility MD compatibili per Spectrum Gio¬ 
vanni Baviera - Viale Annunziata. 71 • 98100 Messina 

Causa passaggio a strumento superiore vendesi ZX Spectrum 

48 Kbyte completo di cavi, manuali o imballo originale a L 
390.000; stampante ZX Printor a L. 150.000, sintetizzatore voca¬ 
le a L. 80000. oltre 100 programmi a L 5000 cadauno, che 
regalo a chi compra il sistema Telefonare Luca Bngatti - Vìa 
Inganni. 84 - 20147 Milano - Tel 02/4150085 

Voncfo numerosi programmi per ZX Spectrum al prezzo massi¬ 
mo di L 7.000. Per riceverò l'elenco scrivere a: Andrea Sec- 
chiati - Piazza Tommaseo. 3 - 30017 Jesolo Lido (Venezia) 

Cambio, compro, vendo programmi per Spectrum. Dispongo di 
software Originale in LM. inviare e/o richiedere lista, oppure 
telefonare. Gianluigi Langè - Via Copernico. 19 - 20094 Corsi- 
co (M I) - Tel . 4470196 

Eccezionale* Vendo programmi per Spectrum 16-48 Kbyte a 
prezzi irrisori (FORTH 48 Kbyte L 4.000 • Flight Simulabon L 
4.000, ecc.) Scrivetemi e io vi invierò la lista dei programmi e 
ogni eventuale chiarimento. Federico Giannici - Viale Francia. 

4 - 90146 Palermo - Tel 0 91 /500190 

Vendo, cambio oltre 350 programmi per ZX Spectrum 16-48 
Kbyte Prezzo medio L 3 000 a programma (cassetta compre¬ 
sa) Richiedere lista. Andrea Chiavini - Via Div Acqui. 40,-* 
38065 Mori (TN) - Tel. 0464 /98025 

Vendo, cambio programmi per Spectrum 16-48 Kbyte e pro¬ 
grammi per VIC 20. anche espanso, a L 1 5000 l'uno (acquisto 
minimo 7 programmi) comprese spese di spedizione Per even¬ 
tuali scambi scrivere o telefonare. Alessandro Sacilotto - Via 
Brigata Barletta. 5 - 31044 Montebelluna (TV) - Tel.0423/24503 

Attenzione* Cerco possessori Spectrum In zona Genova per 
fondare un club In ogni caso, finalità scambio idee Ho 17 anni 
e vorrei fare qualcosa di serio Fabio Degipo - Via Piave. 8/17B 
• 16145 Genova Albaro (GE) 

Vendo libro "Alla scoporta dello ZX Speclrum" a L 16 000 
anziché L 20.000. Telefonare ore pasti Stefano Nova - Via 
Cer vino. 31 - 20095 Cusano Milanino (MI) - Tel 6198112 

ZX ottantunisti uniamoci! Non facciamo la fine dei dinosauri* 
Abbiamo fatto epoca, ma non è finita* Scrivetemi e unitevi allo 
"ZX ottantuners Club". I mio Indirizzo e: Maurizio Marmi - Via 
Mincio, 57 - 52100 Arezzo - Tel. 0575/35 2566 

Cambio, vendo software su cassetta per Spectrum 16/48 
Kbyte Telefonare per accordi ore serali oppure scrivere in¬ 
viando propria lista. Rispondo a tutti. Roberto Morosi - Piazza 
IV Novembre. 9 - 20035 Lissone (MI) - Te l. 039/484901 

Cambio circa 200 programmi per Spectrum 16/48 Kbyte E' 
l'occasione per voi se volete ampliare la vostra nastroteca- 
copie da computer e non da registratore Massima serietà 
Gianfranco Cordani - Via Garian. 57 - 20146 Milano - Tel 
02/4089997 


Vendo giochi per ZX Speclrum. Per L. 35.000 cedo cassetta 
C46 piena* Elencare giochi già in possesso per eventuale ridu¬ 
zione Pagamento anticipato. Alessandro Caccialupi - Via Rulli. 
4 - 10147 Tonno - Te l 011/210248 

Vendesi ZX80 nuova ROM slow Praticamente equivalente 
ZX81. Per L 100.000 ò compresa una serie di interessanti listati, 
manuale in italiano ed elegante 24 ore come contenitore. Tele- 
foanre ore pasti Stefano Straneo - Via Tonolim. 22 - 25043 
Breno (BS) Tel. 0364/22727 

Affarone, vendo ZX81. più 64 Kbyte. tastiera a 4 colon, cavetti o 
alimentatore, libri inglese italiano "66 programmi", centinaia di 
programmi e listato L 300 000 Mano Bacchi - Via Costituzione 
4 - 42048 Rubiera (RE) - Tel 0522/62232 (ore 10-13) 

Cerco stampante in cambio di 150 programmi per Spectrum 
Vendo a meno di L 1 000 cadauno programmi 16 e 48 Kbyte 
(Chequered flag. VV 3D. Cale. File. Chess. Atte atac). Invio 
elenco gratis. Davide Di Dio - Via Carlo Alberto. 46 - 80045 
Pompei (NA) - Tel 081/863505 


Texas 


Vendo per TI 99/4A programmi e listati In TI BASIC eexlended 
BASIC, prezzi buoni e eccezionali sconti a chi ne acquista 
parecchi insieme. Luca Carazza - Via Lodi. 2 - 10152 Torino - 
Tel. 011/237041__ 

Vendo TI 99/4A completo di manualo e libri, minimemory con 
cassetta o manuale per programmare in Assembler piu tantissi¬ 
mo software L 35000 Scrivere a Davide Maglio - Salita & 
Pietro. 29 - 18038 Sanremo (1M) 

Vendo TI 99/4A..peripheral box. disk drive, disk control. 32 
Kbyte. RS232. registratore, extendod BASIC. 15 moduli SSS. 
tanti giochi su disco o cassetta Tutto a L 2000000. vendo 
anche separatamente Ottimo stato. Giustino De Sanctis - Via 
Tito. 1 - 02100 Rieti - Tel. 0746/425606 

Eseguo programmi di matematica puro e applicalo di ogni tipo 
per Texas e Commodore Prezzi da L. 5000 a L lOOOOsecondo 
difficoltà Roberto Martina - Via Sauro. 8 • 46041 Asola (MN) 
Tel 0376/719426 

Vendo TI 99/4A. trasformatore, modulatore, cavo por registra 
tore. 40 programmi su cassetta, 4 riviste sul TI 99/4A con oltre 
100 progrommi II tutto a L 300000. Raffaele Avino • Via Lepan- 
to. 165 - 60045 Pompei (NA) - Tel 081/8632802 

Compro extended BASIC per TI 99/4A con relativo manuale al 
miglior offerente. Francesco Furnari • Via Ameglio. 45 - 95038 
S M. di Licodia (CT) 

Cerco per TI 99/4A modulo extended BASIC (perfettamente 
funzionante) possibilmente completo di manuale. Scrivere o 
telefonare ore pasti a Orazio Liveram - Via S. Pier Laguna. 32 - 
48018 Faenza (RA) - Tel 0546/48043 

Vendo cassetta per TI 99/4A con più di 40programmi Ira giochi 
e statistiche e matematica (Sci. Paratrooper. Pac man. Lab.3B 
orlogrammi. Camelot. ecc.) a L 50000 Rivolgersi a Marcella 
Nigiio - Via dei iapigi, i 75100 Molerà 

Vendo TI 99/4A quasi nuovo (4 mesi di vita) completo di 
collegamento TV color o registratore. Inoltre vendo registratore 
data-record della Philips compatibile con il TI99/4A Aggiungo 
cassetta ptona di programmi Tutto a L 450000 Rivolgersi a 
Francesco Onorati - Via Caropreso. 14 • 75100 Matera 

Vendo peripheral expanslon System per TI 99 (con interfaccia 
incorporata), per espansione linguaggi computer e introduzio¬ 
ne floppy disk II box è vuoto, nuovo e mai usalo Prezzo L 
400.000 Telefonare a Gianni. Gianni Manghisi - Via della Mar- 
tinella. 12 • 20100 Milano - Tel. 02/5468288 

Cerco per TI 99/4A mini memory e Invàderà Telefonare ore 
pasti o scrivere a: Serra Ugo - Via Salta. 54 • 09100 Cagliari - 
Tel 070/652591_ 

Compro per TI 99/4A. modulo SSS Tl-Extended BASIC con 
relativo manuale. Offro L 100.000. Luigi Malmerenda • Via 
Lubiana. 27 - 61100 Pesaro (PS) - Tei 0721/30838 

Vendo TI 99/4A nuovissimo con manuali d'uso, cavo registra¬ 
tore. trasformatore, modulo PAL color, sistemi alta probabilità 
Toto. Invaders. Missili. The Wall. La casa del mostro, alta risolu¬ 
zione. a L 290 000 Vittorio La Placa - Via Trieste. 55 - 93100 
Caltanisetta • Tel. 0934/22287 

Vendo TI 59 più PC100C piu modulo base e centinaia di pro¬ 
grammi Il tutto m garanzia e confezione originale a L 650.000 
trattabili. Telefonare ore di cena a. Grillo Angefo • Via S Fedele. 

2 - 20022 Castano Primo (MI) - Tel. 0331/882102 

A Roma è nato II "TI 99ers Club". Disponiamo di software In 
qualsiasi linguaggio Per informazioni o modalità di iscrizione 
scrivere o telefonare (solo giorni feriali) a: Camillo Monaca - Via 
Eurtalo. 80 - 00181 Roma - Tel 789392 9456079 

Vendo cassetta contenente 33 programmi per TI 99/4A a sole 
L. 50.000 Contiene giochi di azione, di strategia, d'avventura, 
grafici di qualsiasi funzione ad alta risoluzione, numerosi pro¬ 
grammi di didattica e utilità musica Cerco mitre fotocopre del 
manuale Sam per Commodore 64. Sono disposto a cambiare 
con numerosi programmi Davide Rolando - Via B Ottaviano. 
6/6 - 17100 Savona - Tel 019/26949 


Compro modulo SSS Extended BASIC per TI 99/4A. France¬ 
sco Ugga - Via D Scarlatti. 2 - 80046 S. Giorgio (NA) - Tel 
7713919 

Scambio modulo Extended BASIC nuovo, mai usalo e comple¬ 
to di manuale e allegati con espansione 32 Kbyte per TI 99 
Eventuale conguaglio. Marco Pasquali - Vìa Mascagni. 11 ■ 
20014 Nerviano (MI) - Tel. 0331/585621 

Compro programmi per TI 99/4A e cambio software Scrivere o 
telefonare a: Luciano Spada - Vìa Monti, 24 48010 Cotignota 
(RA) - 4 0 053 

Per TI 99/4A vendo consolle a L 200.000 - modulo Extended 
BASIC più memoria esterna 32 Kbyte più 2 joystick a L 350.000 

- moduli Chess. PRK. 10 cassette a L 50000 Tutto in blocco a 
L 550.000 Luca Conti - Casella Postale. 112 - 56021 Cascina 
(PI) - Tel. 050/702427 

Acquisto scheda SR232 per TI 99/4A. Cerco inoltre TI Writer 
darei eventualmente in cambio programma fatturazione origi¬ 
nale mai usato. Acquisterei stampante se perfetto stato e prez¬ 
zo interessante. Marcello Meleagn - Via Cattamssetta. 10 - 
10148 To nno - Tel 011 /2160040 

Cerco e compro se completo package Assembler della Texas 
per TI 99/4A Per informazioni scrivere a: Alessandro Meles - 
Via Mameli. 48 - 20100 Milano 

Vendo per TI 99/4A centinaia di listati o programmi su cassetta 
a prezzi ottimi: cassetta con 5 giochi TI più Extended BASIC L 
10.000. Disponibili anche utility e gestionali. Richiedere elenco. 
Roberto Galasso - Via Magaldi. 5 - 72011 Brindisi - Tel 
0831/418 224_ 

Vendo TI 99/4A originale USA. modulatore TV sistema NTSC. 
moduli SSS Extended BASIC, gestione dati personali con libri 
in italiano, cavo registratore, joystick, cassetto con giochi, tutto 
a L 550000 Roberto Galasso - Via Magaldi. 5 - 72011 Brindisi - 
Tel 0831/418224 

Vendo TI 99/4A perfottamenle funzionante, manuali, joystick». 
Programming Aids I. programmi. TI Extended funzionante a L 
300.000 trattabili. Paolo Aicardi - Vìa Acerbi. 6 • 16148 Genova 

- Tel 010 /391760 

Vendo programmi per TI 99/4A. Offro grafica avanzata (linee 
orizzontali - verticali • oblique, circonferenza funzioni), gestio¬ 
ne archivio clienti, c/c; programmi di matematica (integrali, 
inversione matrici e sistemi, ecc.). Marco Marchini - Via Vicina¬ 
le Macchia. 65 - 54036 Marina di Carrara - Tel 0585/632055 

Vendo TI 99 più registratore, modulo SSS Blasto. joystick, oltre 
40 programmi di vario genere a sole L 300.000 trattabili Causa 
passaggio a sistema superiore Telefonare dopo lo 14. Marco 
Trabattoni - Via Rossini, 57 - 20038 Seregno (MI) - Tel 
0362/2 37448 

Vendo numerosi programmi, giochi utility, vari a disposizione 
per TI 99/4A Prezzi eccezionali Disponibili anche solo listati 
Scrivere o telefonare dalle 14 in poi. Disposto anche allo scam¬ 
bio. Marco Trabattoni - Via Rossini. 57 - 20038 Soregno (MI) • 
Tel 0362/237448 

Vendo TI 99/4A completo dei suoi accessori base, come nuo¬ 
vo. 8 moduli SSS favolosi (Donkey kong. Alpmer. Hunchman. 
Parsec. Musik. ecc ). cassetta programmi a L. 400 000. Telefo-, 
nare. Maurizio Lopes • Via Prati. 3 - 37100 Verona - Tel * 
045/914211 

Per TI 99/4A vendo programma "Agenda telefonica" in Tl- 
BASIC su cassetta utilizzante maschere video. Por informazio¬ 
ni anche su altri programmi scrivere o telefonare ore pasti 
Marco Padroni - Via Mazzini. 22 - 26100 Cremona - Tel 
0372/37265 

Vendo TI 99/4A completo di manuali, alimentatore, cavo TV. 
cavo registratore. 1 joystick. Extended BASIC. 70 programmi 
vari. Tutto in ottimo stato a L 280000. Marco Boselli - Via per 
Cesate. 100 - 20024 Gaibagnate (MI) - Tel 02/994143 


Varie 

Vendo computer Philips più G7400 Videopac piu 2 cassette 
Race. Fi e Guerra spaziale a Lit 250000 Inoltre vendo video- 
gioco a cartucce completo di 2 cassette a Ut 50000 Entrambi 
Lit 280000 Gian Mano laconefli • Via dei mille. 117 - 20051 
Limbiate (MI) - Tel 02/99000122 

Compro, cambio, vendo software CBM 64 - VIC 20 - Apple • 
Texas - Sinclair Marcogiorgio Lampi» • Via Nazionale. 90 - 
09023 Monastir (CA) - Tel 070/9177202 

Per IBM Junior stiamo fondando un club Cerchiamo aderenti 
onde poi acquistare questo favoloso computer e software a 
prezzi socio Siamo già 300. aspettiamo anche te. Scrivi Fran¬ 
co Gonzalo - Corso Fogazzaro. 174 • 36100 Vicenza - Tel 
0444/42678 

Vendo consolle Intetlevlsion p>ù cassetta triple action, pratica¬ 
mente nuova a Lit 250000 Fabio Cerfogli - Via Sicilia, 120 - 
91019 Valderice (TP) • Tel. 0923/833474 

Vendo sintetizzatore polifonico Proprie! 600. mterfacciabile 
completamente (via midi) con i piu diffusi computer da casa, a 
Lit 3500000 trattabili Fausto Faloetti - Via Capersegno. 149 - 
24030 Presezzo (BG) • Tel 035/616218 
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SERVIZIO SOFTWARE 


P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 


P.S. n° 

Programma 

Sistema 

Prezzo 

Codice 

Supporto 

3 

La carta del cielo 
Collisione 

Apple II 

30.000 

1 

Disco 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

40.000 

4 

Disco 

5 

Pretty printer 

Shape table 

Apple II 

30.000 

6 

Disco 

7 

Data base modulare 

Apple II 

25.000 

7 

Disco 

12-13 

Wei-ch'i 

CBM 3032 

20.000 

8 

Cassetta 

14 

Tool-Kit 

C 64 

35.000 

9 

Cassetta 

19 

Type Writer 

VIC 20 

30.000 

10 

Disco 

20 

Scopa 

C 64 - 3032 

25.000 

11 

Cassetta 




Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson • Via Rosellini, 12 - 20124 Milano 

- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. L 

I 

| | 

1 1 

J a L. L 

1 1 

1 

1 

1 

1 

Cognome 

Cod. L 

1 

1 1 

1 1 

J aL. L 

1 I 

1 

1 

1 

1 

Cod. L 

1 

1 1 

1 1 

J aL. L 

1 I 

1 

1 


1 


Cod. L 

I 

I | 

1 1 

J a L. L 

| | 

1 

1 

1 

1 

CAP 

Cod. L 

L 

IL 

1 1 

J aL. L 

1 I 

1 

1 

1 

1 

Città 

1 SPESE POSTALI 
(contributo fisso) 

L. 3.000 

TOTALE L. L 

1 1 


L 

J 

J 



che pagherò al postino alla consegna del pacco 


Firma 























































Libri firmati JACKSON 


Baisini - Baglioni 

FORTH 

Come e perché - dopo essersi affermato in 
campo scientifico e industriale - il FORTH è 
sempre più usato anche come linguaggio per 
Personal Computer. Strutturato su due piani, il 
volume si propone come "manuale di 
apprendimento" e come “manuale d’uso” del 
FORTH applicato al VIC 20 e al CBM 64. 

160 pagine. 

Codice 527 B L. 11.000 


2 I—voi 

jj E IL VOSTRO.. 

|| l/'niWOOOfl£64 


Francesconi - Paterlini 

VOI E IL VOSTRO COMMODORE 64 

Un esauriente vademecum sulla 
programmazione in BASIC del Personal che va 
oggi per la maggiore. Facile, brillante, ricco di 
programmi testati questo è un volume prezioso 
anche per il più inesperto degli utilizzatori che, 
oggi, trova finalmente il modo più semplice per 
entrare nel mondo dei computer. 256 pagine. 
Codice 347 B L. 22.000 


Rita Bonelli 

COMMODORE 64 IL BASIC 

Un’accurata esposizione del linguaggio BASIC, 
accompagnata da numerosi esempi. 

Un BASIC visto dall'Interno. Un libro di 
programmi per imparare a programmare. 

Per una maggior praticità e immediatezza d'uso, 
tutti i programmi esemplificativi riportati nel libro 
sono disponibili - a richiesta - su floppy disk. 
316 pagine. 

Codice 348 D L. 26.000 

La Biblioteca che fa testo 


GRUPPO 

EDITORIALI 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 
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Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò contrassegno al postino il prezzo indicato piu L 3.000 per contributo (Isso 
•pese di spedizione 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

G Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n 11666203 a voi intestato 

□ Allego fotocopia di versamento 

n° - su vaglia postale a voi intestato 
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Data 
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Vendo Orlc 1 48 Kbyte Alta risoluzione. BASIC avanzato, ta¬ 
stiera reprogrammabile. Periferiche possibili: cassette, disco, 
impressore completo con manuali, programmi, cavi a L. 
300.000. T. Donicelli - Via al Gottardo - 6925 Gentilino (TI - 
Svizzera) - Tel. 547369 

Vendo Enciclopedia di Elettronica e Informatica ed. Jackson. 8 
volumi completa, rilegata, a Lit. 200000. Angiolo Tavanti - Via 
Felice Battaglia. 6 - 40135 Bologna - Tel. 051/436843 
Newbrain AD più manuali d'uso in italiano e originali in inglese 
più cavi monitor - registratore più alimentatore, per passaggio a 
sistema superiore vendo a Ut. 730000 trattabili Ancora in ga¬ 
ranzia. Maurizio Scalia - Via Imperiale. 15- 16143 Genova - Tel. 
010/512731 _ 

Vendo 24 fascicoli più relative copertine di "ABC Personal 
Computer" della Jackson - corso programmato di BASIC il 
tutto (non rilegato) a Lit. 50000. Acquisto listati o cassette per 
C64. Gianfranco Ciaccio - Via Brenta. 17 - 87100 Cosenza - 
Tel. 0984/22848 

Vendo vastissima gamma di programmi tecnici, games. ecc. a 
sole Lit. 10000 cadauno. Ottima grafica e rendimento per C64. 
Per informazioni e contatti rivolgersi a Marco Gorin - Corso 
Italia. 57 - 13100 Vercelli - Tel. 0161/56155 

Vendo Microprofessor II, 1 drive, tastiera, joystick, schemi elet¬ 
trici, manuali. DOS 2.2, molti programmi su disco e 20 cassette 
originali Digitek, Screen editor. Anche singolarmente. Ut. 
1300000. Claudio Segatori - Via R. Francelli.23 - 00169 Roma - 
Tel. 06/2679183 

Vendo personal computer Sharp MZ 721 (registratore incorpo¬ 
rato). manuali, cassette. 10 giochi originali, imballo originale. 6 
mesi di vita, garanzia. Lit. 850000 trattabili. Telefonare orepasti. 
Piero De Toni - Via Bombardini. 5 - 36061 Bassano Del Grappa 
- Tel. 0424/25163 


Attenzione Volete sfondare nel mondo del computer, program¬ 
mando. giocando e riuscendo a fare la lezione per casa in 10 
minuti anziché due ore? Dovete scrivermi! Marco Saltarelli - 
Via XXIV Maggio. 7 - 36054 Montebello (VI) - Tel. 0444/749024 

Cambio tutti I miei programmi con un joystick oppure con una 
stampante, purché funzionanti. Pietro Cardetta - Vico Rosmini. 
3 - 74017 Mottola (TA) 


Compro stampante Sharp con interfaccia adatta a computer. 
Pierluigi Callegarin - Via Lovarini. 10 - 35126 Padova - Tel. 
049/755352_ 

Vendo, cambio programmi di ogni tipo a prezzi modici. Annun¬ 
cio sempre valido, programmi su disco o cassetta. Andrea 
Ropele - Via Marconi. 30 - 39055 Laives (BZ) - Tel. 0471/95148 


Vendo Micro N.E.: LX380 L 40000 - LX382 L. 70000 - LX386 
(8Kbyte) L. 120000 - LX390 L. 120000 - LX391 L 30000 - LX392 
L 70000 - LX529 L.250000 - LX530 L.5000 - LX547 L. 5000 - 
monitor 12" F.V. L 180000. Renato Severin - Via Casaria. 23 - 
31030 Biancade (TV) - Tel. 0422/790136 
Possessore di Sharp MZ-731 vendo interessantissimi pro¬ 
grammi (gestionali - utility - giochi) a prezzi stracciati! Ho tutto 
ciò che ti serve, anche molti linguaggi. Nicola Gotti - Via Sorio. 
112 - 35100 Padova - Tel. 049/38343 

Vendo, cambio programmi per II Sega SC 3000 Cassetta con 
circa 30 titoli solo LIL 25000 comprese spese di spedizione. 
Giochi, matematica, grafica tre-di. Utilities. Affrettatevi! Carlo 
Ferrari - Via Merici. 90 - 00162 Roma - Tel. 06/831678 


■ Vendo per CBM 64 - Sharp 700 tutti i programmi di ■ 

■ produzione propria, gestionali e utilità, giochi, turbo ■ 

■ nastro e turbo disco, sintetizzatore vocale. Prezzi ■ 

■ bassi. Claudio Giovanelli - Via Ripamonti. 194 - 20141 ■ 

■ Milano - Tel. 02/536926 ■ 

Vendo per Sharp MZ-700 programmi: archivio, giochi. Word 
Processing, fatturazione. IVA. ecc. Prezzo solo costo della cas¬ 
setta. Giuseppe Sticchi - Via E. Sticchi. 2 Pai. AIO - 73024 
Maglie (LE) - Tel. 0836/25735_ 

Vendo a metà prezzo "Programmazione delle Z80“ di R. Zack 
e "Come programmare" di J.C Barbanche Editore Jackson. 
Stefano Pecoraro - Via Matteotti. 7 - 80046 S. Giorgio a Crema¬ 
no (NA) - Tel. 081/481858 


Vendo magnifico CBS Coleco Vision più 4 cassette: Mousetrap, 
Turbo. Space panie. Cabbage patch kids, il tutto a L. 510000 
trattabili, o cambio con CBM 64 il tutto è in ottime condizioni. 
Solo zona Livorno. Emanuele Vallese - Via Benedetto Brin. 13 - 
57100 Livorno (LI) - Tel. 0586/804076 

Vendo N.E. Z80 a L. 1500000 48 Kbyte RAM. doppio driver 
BASF, interfaccia video programmabile 80 colonne, interfaccia 
stampante. CP/M 2.25. BASLG2. BASLG3. MBASIC (24 Kbyte). 
monitor versione 3.8. ampia documentazione. Telefonare posi- 
bilmente ore serali. Roberto - Roma - Tel. 06/2776324 

Vendo DAI personal computer, vera occasione, causa passag¬ 
gio ad altro sistema. Completo di manuale, cavetti e omaggio 
cassetta con vari programmi di giochi e utilità. Tommaso Vir- 
nicchi - Via Cales. 17 - 81042 Calvi Risorta (CE) - Tel. 
0823/873745_ 

Per Olivetti M20 vendo magnifici giochi tra i quali Pacman e 
Asteroid in linguaggio macchina. Scrivere per ricevere infor¬ 
mazioni o ordinare il software su floppy disk a Ut. 50000. 
Maurizio Garatti - via Rizzerà. 51 - 31029 Vittorio Veneto (TV) - 
Tel. 0438/59237 

Vendo due hard disk drive ICL da 10 Mbyte ciascuno a L. 
1000000 minime. Una unità centrale ICL sistema 10 L. 1500000 
trattabili. Causa passaggio a sistema superiore. Gaudenzio 
Albertinazzi - Via Novara. 12 - 28012 Crossa (NO) Tel. 
0322/86125_ 

Vendo per Sega SC 3000 tanti listati (giochi ed utilità) e in 
cassetta due splendidi giochi: Paracadutisti e Electronic 
Synthesizer a L 5000 cadauno. Stefano Conio - Via Dazzi. 3 - 
00135 Roma - Tel. 06/335467 

Vendo Intellevision ancora In garanzia con le cassette: Gracu¬ 
la, Tennis. Skiing. Swords. Sirpent. Il tutto perfetto e usato 
poche ore a sole L. 360000. Bruno Verrazzani - Via Romana. 
196 - 52100 Arezzo (AR) - Tel. 0575/913509 

Vendo cassetta con programmi in BASIC per risolvere equa¬ 
zioni matematiche di qualsiasi tipo e integrali definiti. Alberto 
Bosoni - Via Ippolito Nievo. 19 - 20145 Milano - Tel. 
02/4691441 

SC 3000 Club Roma, la prima rivista interamente regi¬ 
strata su cassetta. Programmi inediti. 12 per L 10000. 

Gianni Maurelli - Via A. Bongiorno. 2 se. C int. 1 - 
00155 Roma - Tel. 06/4562379 
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DAL 1870 
CON LE NOSTRE 
INFORMAZIONI 
SI SONO STRETTE ALLEANZE 
DECISE STRATEGIE, 
CELEBRATI SUCCESSI 
DI RELAZIONI E DAFFARI 
IN ITALIA E NEL MONDO 


00187 Roma - ViaF.Crispi. 10 
Tel. (06) 483 401 
Telex 613462 MONACI 


20145 Milano • Via V. Moni., 86 
Tel. (02) 34.58.567 
Telex 332849 MONACI 











































































UNA PUBBLICAZIONE 

DEL GRUPPO EDITORIALE JACKSON 
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PERSONAL-O 

La prima rivista indipendente per gli 
utenti di personal computer Olivetti 


V \ S. 

Una nuova pubblicazione firmata. 


ABBONATEVI ADESSO! 

10 numeri dello rivista Vi costeranno 35.000 Lire 
(anziché 40.000). 

Per sottoscrivere l'abbonamento basto compilare 

11 modulo pubblicato aui sotto e spedirlo a: 

Gruppo Editoriale Jackson S.r.l. - Via Rosellini, 12 
20124 Milano, allegando assegno o fotocopia della 
ricevuta di versamento sul c/cp n. 11666203 
intestato a GRUPPO EDITORIALE JACKSON ■ MILANO. 

□ Si. desidero sottoscrivere un abbonamento a 
Personal-O (10 numeri al prezzo di Lire 35.000 
anziché 40.000) 

□ Allego assegno 

□ Ho effettuato versamento sul c/cp. n. 11666203 _ 

Azienda ... .;.hy. 

Nome .. 

Cognome . 

Vla ./V;.. • -. • . 

CAP .>K... CITTA' . 

□ Sono un rivenditore di personal computer Olivetti 

□ Non sono un rivenditore di personal computer 
Olivetti 



























Enciclopedia di Elettronica e Informatica 




j ■ temi affascinanti della civiltà 
I del computer, gli sviluppi del- 
■ la società tecnologica in un 
opera creata per capire e affron¬ 
tare il micromillennio. 

J L'enciclopedia giovane e pratica, 

che nasce dai progressi della ri¬ 
cerca, che parla il linguaggio 
chiaro e conciso della "bit gene¬ 
ration". 

v/ Lo strumento base per chi studia, 

per chi lavora, per chi vuol vivere 
da protagonista le affascinanti no¬ 


vità del nostro tempo e prepararsi 
a quelle del futuro prossimo ven¬ 
turo. 




In edicola 
60 dispense 

30 appuntamenti settimanali 
con gli esperti JACKSON e i 
tecnici TEXAS INSTRUMENTS 


'Ogni settimana: 

56 pagine di elettronica, 
informatica e comunicazioni. 


I 


m sole 30 settimane 

una splendida opera per la vostra 
biblioteca: 

7 prestigiosi volumi 
1600 pagine complessive 

700 foto e 2200 
disegni a colori 


GRUPPO 

EDITORIALE 

JACKSON 


In collaborazione con II 
Leaming Cantar 

Texas Instruments 




















